I am having a terrible time getting my command buttons to
work.

It does not seem to even recognize my Click event.

Sub A()

ActiveSheet.OLEObjects.Add
(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=300, Top:=250,
Width:=125, Height:= _
50).Select

ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption
= "Run Me"

End Sub

Sub CommandButton1_Click()
ActiveSheet.OLEObjects("CommandButton1").Object.Vi sible =
False
End Sub

Any Suggestions?

Thanks

SS