Load Userform Based On Listbox Name

[Jaye7]

Hi All,

I have listbox1 which lists all the userforms in my Activeworkbook.
I am trying to load a userform based on the value selected in the listbox but can't get it to work, can someone please help with a script to load/ show the userform, the userform would be activated by a commandbutton once I select the userform that I want to show/ load.

thanks

 

[AlphaFrog]

Private Sub ListBox1_Click()

    Select Case ListBox1.Value
    
        Case "Item1"
            UserForm1.Show
            
        Case "Item2"
            UserForm2.Show
            
        Case "Item3"
            UserForm3.Show
            
        Case "Item4"
            UserForm4.Show
            
    End Select

End Sub

Notes:

• Item1, Item2, Item3, and Item4 are the actual items listed in the ListBox
• UserForm1, UserForm2...etc are the actual user form names.

 

[Jaye7]

Thanks for the code Alphafrog but I wanted a script that would acivate a userform based on the name in the listbox as the listbox lists all the userforms in the workbook and as I keep updating workbboks I would have to keep adding the select case statement and I have several workbooks that have various different forms, that's why I wanted to activate whatever name is in the listbox, similar to activating a workbook through a textbox. example

workbooks(textbox1.value).activate

I thought that there would be a similar one for userforms even if I have to add the selected name into a textbox and then the textbox activates the form.

I tried codes as following but they don't exist and I can't find anything on google.

forms(textbox1.value).activate
 
I tried also
 
load textbox1.value
 
I tried also
 
textbox1.value.show

 

[AlphaFrog]

Try something like this...

       VBA.UserForms.Add(textbox1.value).Show

How to Display a UserForm Whose Name Is in a Variable

 

[meldoc]

Hello

This is cut down example, of a form that works as you ask.

Private Sub CommandButton1_Click()
    Select Case ListBox1.ListIndex
        Case 0
            frmTOC.Hide
            frmCheckBoxExample.Show
        Case 1
            frmTOC.Hide
            frmComboBoxExample1.Show
        Case 2
            frmTOC.Hide
            frmComboBoxExample2.Show
   
       
    End Select
End Sub

 

[xenou]

To go with the link Alphafrog provided there is also some detailed info at Pearson's site:
http://www.cpearson.com/excel/ShowAnyForm.htm

 

[AlphaFrog]

Another way...
Show Any Form function

 

[Jaye7]

Thanks for your help everyone,

I have used Alphafrog's example as it is exactly what I was after, much appreciated Alphafrog.