Sub CreateToolbar()
Dim myBar As commandBar
Dim Button As CommandBarButton
Set myBar = CommandBars.Add
For i = 1 To 4
Set Button = myBar.Controls.Add(msoControlButton)
With Button
.OnAction = "Button" & i
.FaceId = i + 37
End With
Next i
myBar.name = "myBar"
End Sub