Passing userform parameter

[confusion123]

I want to pass a parameter to activate a userform but for some reason it does not work.

I have a userform called usrApples.

Sub Main

Call PopulateForm(usr:=usrApples)

End Sub

Sub PopulateForm(usr As UserForm)

usr.Show ' FAILS HERE

End Sub

Instead, I have to do this:

Sub Main

Call PopulateForm(usr:=1)

End Sub

Sub PopulateForm(usr As Integer)

If usr = 1 then usrApples.Show

End Sub

What is wrong?

Thanks

 

[Norie]

What is usrApples?

If it's the name of a userform does this work for you?

Sub Main()

    Call PopulateForm(usr:="usrApples")

End Sub

Sub PopulateForm(usr As String)
Dim frm As Object

    Set frm = UserForms.Add(usr)

    frm.Show
    
End Sub

 

[confusion123]

What is usrApples?

If it's the name of a userform does this work for you?

Sub Main()

    Call PopulateForm(usr:="usrApples")

End Sub

Sub PopulateForm(usr As String)
Dim frm As Object

    Set frm = UserForms.Add(usr)

    frm.Show
    
End Sub

Yes usrApples is the name of my userform.

Thanks, your method worked.

But why did mine fail?

BTW, in your method, why does declaring usr As Userform, as opposed to plainly Object, not work?

 

[Norie]

I'm not sure.

By the way, try changing Userform to Object in your original code.