Sub a()
Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton
Dim i As Integer, IDStart As Integer, IDStop As Integer
On Error Resume Next
Application.CommandBars("Test").Delete
On Error GoTo 0
Set NewToolbar = Application.CommandBars.Add(Name:="Test", temporary:=True)
NewToolbar.Visible = True
IDStart = 1: IDStop = 6
For i = IDStart To IDStop
Set NewButton = NewToolbar.Controls.Add _
(Type:=msoControlButton, ID:=2950)
NewButton.FaceId = i * 35
Next i
NewToolbar.Width = 400: NewToolbar.Height = 150
End Sub