Create drop down menu using ActiveX comboBox

Hello, I am new here, please be kind! I am trying to create a drop down menu that will fire different macros based on the selection from the ComboBox. I have been successful using form control ComboBox, but for flexibility I'd like to do this with an ActiveX ComboBox. I've attached (I hope!) a sample file. The macros work fine independently, but I get a "Object doesn't support this property or method" error when the "change" macro hits the "case" syntax... Any and all help would be greatly appreciated!

Try this:-
NB:- the subs must be in a basic Module NOT sheet module.
NB:- Make sure you have the identical spelling

Sub ComboBox1_Change()
   Application.Run ComboBox1.Value
End Sub
Sub Index_By_Date()
MsgBox "Index By Date"
End Sub

Sub Index_By_Status()
MsgBox "Index by status"
End Sub
Sub Macro3()
MsgBox "Macro3"
End Sub

Davesexcel, this solution worked great! Thanks so much for a timely and elegant solution...
Captain Flash