Creating a Userform programmatically Error.

[Herakles]

I'm creating a Userform programmatically which is fine but then I want to replace it based upon a different Specification.

I delete the Userform first and then create a new Userform but when I come to name it using the name of the Userform that I have just deleted it gives me an error
on this line : .Name = strName

Run-time error 75
Could not find the specified object.

Do I have to clear the deleted Userform from memory or something?

Option Explicit

Private Sub subCreateuserform()
Dim MyUserForm As VBComponent
Dim strName As String

    ActiveWorkbook.Save
    
    Call subDeleteForm("frmMyForm")
    
    strName = "frmMyForm"

    Set MyUserForm = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
        
    With MyUserForm
        .Properties("Height") = 377
        .Properties("Width") = 260
        .Name = strName
        .Properties("Caption") = "My Form"
    End With
    
End Sub

Public Sub subDeleteForm(strUserform As String)
Dim VBComps As VBIDE.VBComponents
Dim VBComp As VBIDE.VBComponent

    Set VBComps = ActiveWorkbook.VBProject.VBComponents
    
    On Error Resume Next
        Set VBComp = VBComps(strUserform)
        VBComps.Remove VBComp
    On Error GoTo 0
    
    Set VBComps = Nothing
    
End Sub

 

[NdNoviceHlp]

Maybe trial adding a DoEvents after calling the delete sub? Dave

 

[RoryA]

I'm creating a Userform programmatically which is fine but then I want to replace it based upon a different Specification.

Why? Much simpler to just alter the controls on the form than creating a whole new form.

 

[Dan_W]

Why? Much simpler to just alter the controls on the form than creating a whole new form.

But where's the fun in that?

@Herakles your code works perfectly fine for me. My suggestion would be to pause between deleting the Userform and creating a new one with the same name as that which you've just deleted. I suspect that may be the point that @NdNoviceHlp is getting at with the DoEvents suggestion. If it helps, I usually use a Pause routine like:

Sub Pause(Optional ByVal Period As Single = 1)
    Period = Timer + Period
    Do
        DoEvents
    Loop While Period > Timer
End Sub

And then just add a Pause after deleting the userform before having VBA proceed with the balance of your code.