Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Find user form

Public Sub FindUserForm()      Dim component As VBIDE.VBComponent   Set component = Workbooks("Book1.xls").VBProject.VBComponents("UserForm1")   MsgBox component.Name End Sub