When workbook open, add a commandbutton to last sheet with macro command

hi, everyone

when my workbook open then add a commandbutton to the last sheet of workbook with macro

like here

add button and add this line to call macro

Private Sub CommandButton1_Click()
Call Macro1
End Sub

thnx

You could record a macro to add a button to the last sheet.
The use this and edit so that you know it is the last sheet.
Then you can place it in the WorkBook Open and it will work.

Thanx for the reply dear Keebellah

i found this code, but its not creating a active x button, will you please give any suggestion

Sub CreateButton()
ActiveSheet.Buttons.Add(199.5, 20, 81, 36).Select
Selection.Name = "New Button"
Selection.OnAction = "Macro1"
ActiveSheet.Shapes("New Button").Select
Selection.Characters.Text = "Print"
End Sub

Like I said record your OWN macro and then edit it.
The macro works but my guess it is not adding the button to the sheet you want.
It does it in the "ACTIVE" sheet. so look there.

Just copy this macro in the Thisworkbook VBA

Private Sub Workbook_Open()
Worksheets(ActiveWorkbook.Worksheets.Count).Select
ActiveSheet.Buttons.Add(199.5, 20, 81, 36).Select
Selection.Name = "New Button"
Selection.OnAction = "Macro1"
ActiveSheet.Shapes("New Button").Select
Selection.Characters.Text = "Press Me"
Selection.OnAction = "Macro1"
End Sub

Just copy this macro in the Thisworkbook VBA

Private Sub Workbook_Open()
Worksheets(ActiveWorkbook.Worksheets.Count).Select
ActiveSheet.Buttons.Add(199.5, 20, 81, 36).Select
Selection.Name = "New Button"
Selection.OnAction = "Macro1"
ActiveSheet.Shapes("New Button").Select
Selection.Characters.Text = "Press Me"
Selection.OnAction = "Macro1"
End Sub