Listbox of Workbooks

[Jaye7]

Hi everyone

I have a list box which lists the current workbooks that are open, I want to be able to activate/ goto a workbook based on which row/ value I click on in the list box so that I can them run various other things, can somene help.

 

[Misca]

Try something like this:

Private Sub CommandButton1_Click()
    Workbooks(ListBox1.Value).Activate

    Me.Hide
End Sub

Private Sub UserForm_Initialize()

Dim WB As Workbook

For Each WB In Workbooks
    ListBox1.AddItem WB.Name
Next WB

End Sub

 

[Jaye7]

Misca,

You are a Legend, thanks very much.
Maybe you could help me with another question I have asked, the link follows.

http://www.mrexcel.com/forum/showthread.php?p=2391789#post2391789