VBA Excel or Projects rename the caption of an UserForm

[BVOPP]

Hi, I am not an VBA expert but trying something new.
1. Below sub module works for the first statement only. The second one gives an Run-time error '438': Object doesn't support this property or method.
2. This works for a UserForm in the active project but I would like to do this to a UserForm in the Global.MPT instead

Sub xxxxx()

ActiveProject.VBProject.VBComponents("UserForm1").Name = "UserFormNew"

ActiveProject.VBProject.VBComponents("UserFormNew").Caption = "New title of userform"


End Sub

 

[RoryA]

The VBComponent object itself doesn't have a Caption property; you need to access that via the Properties collection:

ActiveProject.VBProject.VBComponents("UserFormNew").Properties("Caption") = "New title of userform"

 

[BVOPP]

Any idea how i could do this for UserForm in the Global.MPT instead

 

[RoryA]

I don't use (or have) Project so I don't know. I'd guess you can set a reference to it and refer to it directly.