You buttons is a part of the toolbar
. Hence check for the existance of the toolbar.
If IsToolbar("Standard") Then
'-- do something
Else
'-- create tool bar and add the buttons
End If
Or try this:
For Each Contrl in Application.CommandBars("Standard").Controls
If .Caption <> "button1" then
'-- create it
End If
Next Contrl
EDIT as per OP's comment:
So let's stick to the error catching... (untested code, so you may have to give it a try in your end for exact correct syntax)
Dim ctlCBarControl As CommandBarControl
On Error Resume Next
Set ctlCBarControl = Application.CommandBars("Standard").Controls("button1")
If Err <> 0 Then
'-- no button exists, you may add it
Err = 0
Else
'-- the button is there..
End If
End if
* Reference: CommandBar Controls