Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Find code object
Public Sub FindCodeObject()
  Dim component As VBIDE.VBComponent
  Set component = Workbooks("Book1.xls").VBProject.VBComponents(Workbooks("Book1.xls").CodeName)
  Debug.Print component.Name
End Sub