Assuming your listbox contained a,b,c,d as entries

Private Sub ListBox1_Change()
x = ListBox1.Value

Select Case x

Case "a"
"your routine"
Case "b"
"your routine"
Case "c"
"your routine"
Case "d"
"your routine"

End Select



End Sub



"Rinyma" wrote:

How do I run a macro from a list box?