Rendere visibile un UserForm con tipo Object (VBA)

[davideconfa]

Ciao, sto lavorando in VBA, mi trovo davanti a questo problema:
ho caricato in una ComboBox una lista di nomi di documenti, che corrispondono ai nomi degli UserForm che ho sul programma.

Selezionando uno di questi documenti nella ComboBox devo dunque mostrare il corrispondente UserForm.

La seguente macro però non funziona:

Private Sub pVai_Click()
Dim VerbaleScelto As String
VerbaleScelto = ComboVerbali.Value
Dim vbaObj As Object
For Each vbaObj In ThisWorkbook.VBProject.VBComponents
If vbaObj.Name = VerbaleScelto And vbaObj.Type = 3 Then
vbaObj.Show
End If
Next
Unload Me
End Sub

E mi dice, riferendosi all'istruzione "vbaObj.Show" che la proprietà o il metodo non sono supportati dall'oggetto.
Ho provato anche con l'istruzione Load vbaObj ma mi da errore anche questa e mi dice che è impossibile caricare o scaricare l'oggetto...

Qualcuno può darmi una mano??? Grazie mille!!!

[umbimbo]

Potresti provare con una soluzione diversa:

Private Sub pVai_Click()
Dim VerbaleScelto As String
VerbaleScelto = ComboVerbali.Value
select case ComboVerbali.Value
case "form1": form1.show
case "form2": form2.show
end select
Unload Me
End Sub

[davideconfa]

questo purtroppo non risolve il problema, perchè io non conosco a priori il nome del form...

[umbimbo]

Prova così, ma non ne sono sicuro

Private Sub pVai_Click()
Dim VerbaleScelto As String
VerbaleScelto = ComboVerbali.Value
Dim vbaObj as Object
dim Form1 As Form
For Each vbaObj In ThisWorkbook.VBProject.VBComponents
If vbaObj.Name = VerbaleScelto And vbaObj.Type = 3 Then
set Form1 = vbaObj
Form1.Show
End If
Next
Unload Me
End Sub