G Guest Nov 30, 2004 #2 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
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