Application.Run"'Macrobook.xlsm'!" Listbox item that is selected

[KaibleBasha]

Hi,

I am just wondering if there is an easy way to run a macro based on the values within a listbox.

E.g. I have four macros for four reports. I add the names of these reports into a listbox and select them as necessary. How do I then reference them in Application.run or Call?

Item names / Macro names are;
Caseload
TOPs
BBV
MedicalReviews

This is how each item is selected (add = button);
Sub Add_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub

I took this from;
Multiple List Box Selections in Excel VBA - Easy Excel Macros

Ideally they would run in sequence, so when one finishes the next in the list runs as I will pre populate the sheets with raw data.

Thanks for any help, & heads up - I am probably going to be slow replying due to work.
Kai

 

[Stadem]

Try this:

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) = True Then
             Application.Run (ListBox2.List(i))
        End If
    Next i      
End Sub

 

[KaibleBasha]

Thanks a lot!

This is working well, however, is there a way to run this without having to have the Item in Listbox2 selected?

Would a change to a default selection after adding to listbox2 be a good enough solution?

Something like;
Sub Add_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
ListBox2.Selected(i) = True
Next i
End Sub

Thanks again
Kai

 

[KaibleBasha]

Hi,

Sorry I didn't realise that I could apply what you'd sent to a single listbox.

Thanks for the help, I have now just got one list box full of macros that I can run through.

Thanks
Kai