Hi, kosherboy,
I just had the ListFillRange on the sheet, added a listbox from the ActiveX controls, limited it to single select, assigned the ListFilRange, ended the "developer mode", put the code behind the sheet:
Ciao,![]()
Private Sub ListBox1_Change() myMacro ListBox1.ListIndex + 1 End Sub Sub myMacro(lngNumber As Long) MsgBox "Called from Listbox entry: " & lngNumber End Sub
Holger
Bookmarks