Trying to Replace X for Y across all UserForm Control Names

[Sal Paradise]

I have two identical userforms. I want to give them different names. If the word Google appears in the UserForm, I want to swap it with Yahoo.

I figured this would work:

Sub Test()
    
    Dim Ctl As Control
    
    Application.EnableEvents = False
    
    For Each Ctl In Google.Controls
        Ctl.Name = Replace(Ctl.Name, "Google", "Yahoo")
    Next Ctl

    Application.EnableEvents = True

End Sub

Unfortunately, it keeps giving me an error:

Run-time error '382':

Could not set the Name property. Can not set property at run-time.

How the dickens do I get it to loop through my controls and change names? Even if I try to change a single name by code manually (Google.SearchName.Name = "YahooSearch") it doesn't do it, giving the same error.

Any ideas?

 

[pgc01]

Hi Sal

Try:

Sub Test()
    
    Dim Ctl As MSForms.Control
    Dim Ctls As MSForms.Controls
    
    Application.EnableEvents = False
    
    Set Ctls = Workbooks("Book3").VBProject.VBComponents("Google").Designer.Controls
    
    For Each Ctl In Ctls
        Ctl.Name = Replace(Ctl.Name, "Google", "Yahoo")
    Next Ctl
    Application.EnableEvents = True
End Sub

 

[Sal Paradise]

You are a gentleman, a scholar, a saint and all that jazz.

Fantastic. Thank you.