Object Required Error

[poopiebear]

I am attempting to do the following: Import 5 UserForms, then show UserForm2 when clicking the CommandButton.

UserForm2 will show if I have already have the user forms in my project, but when I import them, I get this object required error.

[COLOR=black][FONT=Verdana]Private Sub CommandButton1_Click()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p> </o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'Import UserForms for data entry
Application.VBE.ActiveVBProject.VBComponents.Import "C:\UserForm2.frm"
Application.VBE.ActiveVBProject.VBComponents.Import "C:\UserForm3.frm"
Application.VBE.ActiveVBProject.VBComponents.Import "C:\UserForm4.frm"
Application.VBE.ActiveVBProject.VBComponents.Import "C:\UserForm5.frm"
Application.VBE.ActiveVBProject.VBComponents.Import "C:\UserForm6.frm"<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p> </o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'Surname
If TextBox8.Text <> "" Then
    Sheet5.Range("D8") = TextBox8.Text
Else
    Sheet5.Range("D8") = ""
End If<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] <o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'First Name
If TextBox9.Text <> "" Then
    Sheet5.Range("D9") = TextBox9.Text
Else
    Sheet5.Range("D9") = ""
End If<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] <o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'Bunch of other stuff here....<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p> </o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'Display UserForm<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]UserForm2.Show  <o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p> </o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End Sub<o:p></o:p>[/FONT][/COLOR]

Thanks for the help!

 

[Trevor G]

What if you create the subroutine as separate for showing userform2 then call it as part of the routine at the end will that work?

 

[poopiebear]

I'm exploring that option now, but I still get an error on the last line. Something like this??

Dim FileName As String
Dim VBForm As Object
Dim VBProj As Object
 
FileName = "C:\UserForm2.frm"
 
Set VBProj = Application.VBE.ActiveVBProject
Set VBForm = VBProj.VBComponents.Import(FileName)
 
VBA.UserForms.Add VBForm.Name
UserForms(0).Show

 

[poopiebear]

I think I got it. The last 2 lines should be written this way instead:

VBA.UserForms.Add(VBForm.Name).Show

Thanks!