Hi Martin,

You have already provided the code to name (or rename) the button yourself:


ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption _
=
"Návrat"

---
Regards,
Norman



"Martin" wrote in message
...
Thank you very much! Can i have last question? Can I change caption of
button?
It is worst: ActiveSheet.Buttons("Button 1").Caption = "Back"
"Norman Jones" wrote:

Hi Martim.

Your problem is that you are not using a button from the Forms toolbar
but a
CommandButton from the Controls Toolbox.

In the relevant worksheet module (right-click the worksheet tab | View
Code), paste the following:


Private Sub CommandButton1_Click()

'Your macro code here

End Sub


---
Regards,
Norman



"Martin" wrote in message
...
Hi, thank you but it doesn't work, it shows me warning:"Can't get
button
property of worksheet class". Do you know where i make mistake?

ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False,
DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5,
Height:=34.5
ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat"
ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet"

"Norman Jones" wrote:

Hi Martin,

Try:

ActiveSheet.Buttons("Button 1").OnAction = "MyMacro"

---
Regards,
Norman



"Martin" wrote in message
...
I want to create button with some code to worksheet. I can programm
button
but i don't know how can i do action for this button :-(. Do you
know
please?