Change Control Toolbox Button Caption

[Otto Moehrbach]

Excel XP & Win XP

I have a Control Toolbox button, "CommandButton1" with a caption of, say,
"Old Caption".

I want to change the caption via VBA to, say, "New Caption".

How do I code that?

Thanks for your time. Otto

 

[Per Jessen]

Userform1.Commandbutton1.caption="New Caption"

Regards,
Per

 

[Otto Moehrbach]

Per
Thanks for your response but I don't have a UserForm. The button is a
simple Control Toolbox button on the sheet. Otto

 

[Peter T]

Dim ole As OLEObject

On Error Resume Next
Set ole = ActiveSheet.OLEObjects("CommandButton1")
On Error GoTo 0

If Not ole Is Nothing Then
ole.Object.Caption = "New Caption"
Else
msgbox "no oleObject named CommandButton1 on activesheet"
End If

Regards,
Peter T

 

[Dave Peterson]

ActiveSheet.CommandButton1.Caption = "hi there"
'or
ActiveSheet.OLEObjects("commandbutton1").Object.Caption = "bye now"

 

[Otto Moehrbach]

Peter, Dave
Thanks. Works like a charm. Otto

ActiveSheet.CommandButton1.Caption = "hi there"
'or
ActiveSheet.OLEObjects("commandbutton1").Object.Caption = "bye now"