S
SS
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.Caption
= "Run Me"
End Sub
Sub CommandButton1_Click()
ActiveSheet.OLEObjects("CommandButton1").Object.Visible =
False
End Sub
Any Suggestions?
Thanks
SS
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.Caption
= "Run Me"
End Sub
Sub CommandButton1_Click()
ActiveSheet.OLEObjects("CommandButton1").Object.Visible =
False
End Sub
Any Suggestions?
Thanks
SS