Find worksheet code module : VBE « Application « VBA / Excel / Access / Word






Find worksheet code module

 
Public Sub FindWorksheetCodeModule()
  Dim component As VBIDE.VBComponent
  Dim aWorkbook As Workbook
  Set aWorkbook = Workbooks("Book1.xls")
  Set component = aWorkbook.VBProject.VBComponents(aWorkbook.Worksheets("Sheet1").CodeName)
  MsgBox component.Name
End Sub

 








Related examples in the same category

1.Show selected VB component's name
2.Find the code pane
3.Find the selected component in VBIDE
4.Find code object
5.Get VB project name
6.Get active project name
7.Find user form
8.Clear Immediate window through VBE
9.Displaying each active VBA component in a worksheet