Reporting userform Names in Excel

[peterpcu]

Hi There,

How do you write the names of all userforms to a range of cells in a work sheet?

Or alternatively, in Excel how can you check that a particular userform exists?

Thanks

Pete

 

[TonyJollans]

Hi Pete,

Easiest way is probably to try to reference it and catch the error, perhaps ..

Function UserFormExists(UserFormName As String) As Boolean
    On Error Resume Next
    temp = ActiveWorkbook.VBProject.VBComponents(UserFormName).Type
    UserFormExists = temp = vbext_ct_MSForm
End Function

You will need a reference to Microsoft VBA Extensibility for the constant (or use its value (3)).

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[