This toolbar exists only when the cell pointer falls within a given range
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