Макрос, назначенный кнопке (на созданной панели инструментов), исполняется дважды

'
'   Workbook_Open Module
'
Option Explicit
'
Public FirctCall As Boolean
'
Sub Auto_open()
    Call Create_CommandBar
End Sub
'
Sub Create_CommandBar()
Dim NewBar As CommandBar
Dim NewButton As CommandBarButton, Contr As CommandBarButton
 
    Set NewBar = CommandBars.Add(Name:="Sdelki", _
        Position:=msoBarTop, Temporary:=True)
    NewBar.Visible = True
 
    Set NewButton = NewBar.Controls.Add(msoControlButton, Temporary:=True)
    With NewButton
        .FaceId = 266
        .OnAction = "SomeWhat()"
    End With
    
End Sub
'
Public Sub SomeWhat()
    
    FirctCall = Not FirctCall
    MsgBox """FirctCall"" changed in: " & Time & vbCrLf & vbCrLf & "Now ""FirctCall"" = " & FirctCall, vbInformation, "Dumn it ..."
    
End Sub

Public FirctCall As Boolean
 
Public Sub Auto_Open()
    With Application.CommandBars.Add(, msoBarTop, , True).Controls.Add
         .FaceId = 266
         .OnAction = "SomeWhat"
         .Parent.Visible = True
    End With
End Sub
 
Public Sub SomeWhat()
    FirctCall = Not FirctCall
    MsgBox """FirctCall"" changed in: " & Time & vbCrLf & vbCrLf & "Now ""FirctCall"" = " & FirctCall, vbInformation, "Dumn it ..."
End Sub