Private Sub ComboBox1_Change()
Application.Run ComboBox1.Text
End Sub
erik.van.geit said:Hi, rjc4,
try this
Run ComboBox1.Value
I suppose you know there is an inbuilt function for the purpose ?
Tools/macro/macros ==> select and click "run"
kind regards,
Erik
HalfAce said:Here's a way you can do that.
Using an activeX combobox, you can list your macro names somewhere on the sheet and use that range as the ListFillRange for the ComboBox.
Then in your combobox code you can just use this:That what you had in mind?Code:Private Sub ComboBox1_Change() Application.Run ComboBox1.Text End Sub
Sub Macro1()
[A1] = "Mac - 1"
End Sub
Sub Macro2()
[A2] = "Mac - 2"
End Sub
Sub Macro3()
[A3] = "Mac - 3"
End Sub
Sub Macro4()
[A4] = "Mac - 4"
End Sub
Yep. Sounds like everything you've mentioned was done right.rjc4 said:When you say "in a standard module, did I do that correctly as above outline?"
Private Sub ComboBox1_Change()
Run ComboBox1.Text
End Sub