Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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