Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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