Programmatically Rename a UserForm

[BriargateExcel]

I'm trying to rename a UserForm in my VBA code with:
ThisWorkbook.VBProject.VBComponents("UserForm1").Name="UserFormNew"
I get "Run-time Error '75': Path/File access error"
I would appreciate any suggestions.

 

[rlv01]

I ran your code without modifying anything and it successfully renamed the UserForm1 to UserFormNew. Perhaps you have some sort of access error. Have you tried this on a new worksheet?

 

[Jaafar Tribak]

Are you running the code from inside the userform module or while the userform is loaded?

 

[BriargateExcel]

rlv1: Thanks for your quick response!
I closed and re-opened the workbook and it ran fine.
This raises another question: why does close/re-open make it work?

 

[BriargateExcel]

Jaafar Tribak: Thanks, also, for your quick reply!
I'm running it from a standard module. I create the form with:
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
Then attempt to rename the form.
As rlv1 suggested, I closed and re-opened the workbook. It works the first time and fails the second and successive times.
Again: why does close/re-open make it work? Very frustrating...

 

[Jaafar Tribak]

Jaafar Tribak: Thanks, also, for your quick reply!
I'm running it from a standard module. I create the form with:
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
Then attempt to rename the form.
As rlv1 suggested, I closed and re-opened the workbook. It works the first time and fails the second and successive times.
Again: why does close/re-open make it work? Very frustrating...

Not sure why ... Maybe someone else here knows .

 

[BriargateExcel]

It works if I remove the UserForm, save the workbook, and re-try.
It fails if I remove the UserForm and re-try without saving.

 

[rlv01]

On the 2nd attempt are you sure the fail is not because you have already renamed the user form and so

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

produces an error because there is no longer any "UserForm1"?