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