Can I put buttons on a sheet without selecting?
 

I'd prefer if this macro added the buttons without selecting the sheet. And
even work if another workbook is active.

Sub AddButtonsToPage()

Application.ScreenUpdating = False
ThisWorkbook.Activate
Sheets("BondCalc").Select

If ActiveSheet.Shapes.Count = 0 Then
ActiveSheet.Buttons.Add(400, 20, 170, 23).Select
Selection.OnAction = "CopyBondCalcSheet"
Selection.Characters.Text = "Put Page Contents into Clipboard"

ActiveSheet.Buttons.Add(400, 55, 72, 23).Select
Selection.OnAction = "ClearBondCalcSheet"
Selection.Characters.Text = "Clear Page"
End If

Range("A1").Select

End Sub

Is it possible?

Don. www.donwiss.com (e-mail link at home page bottom).

Can I put buttons on a sheet without selecting?
 

I played around with it and this works. And *much* more elegant.

Sub AddButtonsToPage()

Application.ScreenUpdating = False
With ThisWorkbook.Sheets("BondCalc")

If .Shapes.Count = 0 Then
With .Buttons.Add(400, 20, 170, 23)
.OnAction = "CopyBondCalcSheet"
.Characters.Text = "Put Page Contents into Clipboard"
End With

With .Buttons.Add(400, 55, 72, 23)
.OnAction = "ClearBondCalcSheet"
.Characters.Text = "Clear Page"
End With
End If

End With

End Sub

Don. www.donwiss.com (e-mail link at home page bottom).