How to forward a UserForm.Name as a parameter to a Sub

[SeniorNewbie]

Hi out there!
I'm playing around with userforms and controls. With this:

Sub GetUserForms()
Dim usf As Object, sUSF As String

    For Each usf In ThisWorkbook.VBProject.VBComponents
        If usf.Type = 3 And Left(usf.Name, 3) <> "the" Then
            sUSF = usf.Name
            MsgBox sUSF, , "1: "
            test sUSF
        End If
    Next

End Sub

Sub test(sUSF As String)
MsgBox sUSF, , "2: "
Dim oUSF As Object
    Set oUSF = sUSF
    MsgBox oUSF.Caption, , "2:: "

End Sub

I get all existing userfroms of a workbook. My next step ist to write some details of the included controls to a sheet (this part works). Now I want to handover the usf.name in a loop to the next sub. I tried objects, msForms.Userform, strings and variants.

How can I do this?

THX a lot

 

[Micron]

Do you compile your code before trying to run it? That should tell you that there is a problem - you can't assign a string to an object:
Set oUSF = sUSF

I suspect that you should pass the control to the sub if you want to work with its properties. AFAIK, a sub cannot return a value to your calling code, so if you want to pass anything with the result of the called procedure back to the calling procedure you would use a function.

 

[jkpieterse]

If you're looking for a way to list all userforms and all controls and their properties, look no further: Control lister by jkp-ads.com

 

[Micron]

Not sure what you're attempting to do but I played with your altered code to demo passing a control and using its properties. However, given that you will pass any "object" rather than specific types, you'll run into issues where the object type does not have the property you're testing for (e.g. caption).

Sub GetUserForms()
Dim usf As Object

For Each usf In ThisWorkbook.VBProject.VBComponents
    If usf.Type = 3 Then test usf
Next

End Sub

Sub test(usf As Object)
    MsgBox usf.Caption
End Sub