Programmatically change a button caption

I have an ActiveX button control (entered from the "Control Toolbox") on a
spreadsheet. I want to programmatically change the caption on the face of the
button. The macro recorder does not work.

Could someone please correct my code (below) or provide other code that
functions? FYI, my code so far:

Dim ctrlX As OLEObject
Set ctrlX = ThisWorkbook.ActiveSheet.OLEObjects("CommandButton2")
ctrlX.Caption = "Click to Enter Date" <<< ERROR HERE!

Thanks much in advance.

Dim ctrlX As OLEObject
Set ctrlX = ThisWorkbook.ActiveSheet.OLEObjects("CommandButton2")
ctrlX.Object.Caption = "Click to Enter Date"

--
Regards,
Tom Ogilvy

"quartz" <[email protected]> wrote in message
news:[email protected]...
> I have an ActiveX button control (entered from the "Control Toolbox") on a
> spreadsheet. I want to programmatically change the caption on the face of
the
> button. The macro recorder does not work.
>
> Could someone please correct my code (below) or provide other code that
> functions? FYI, my code so far:
>
> Dim ctrlX As OLEObject
> Set ctrlX = ThisWorkbook.ActiveSheet.OLEObjects("CommandButton2")
> ctrlX.Caption = "Click to Enter Date" <<< ERROR HERE!
>
> Thanks much in advance.
>

It is a lot easier than that...

sheet1.commandbutton1.caption = "Click to Enter Date"

You will need to modify this for the sheet and button names, but otherwise
is should be good to go...

HTH

"quartz" wrote:

> I have an ActiveX button control (entered from the "Control Toolbox") on a
> spreadsheet. I want to programmatically change the caption on the face of the
> button. The macro recorder does not work.
>
> Could someone please correct my code (below) or provide other code that
> functions? FYI, my code so far:
>
> Dim ctrlX As OLEObject
> Set ctrlX = ThisWorkbook.ActiveSheet.OLEObjects("CommandButton2")
> ctrlX.Caption = "Click to Enter Date" <<< ERROR HERE!
>
> Thanks much in advance.
>