Sub CreateToolBarMenu()
On Error GoTo ErrControl
Dim cbrNewToolBar As CommandBar
Dim cmdNewButton As CommandBarButton
Dim ArrButtons As Variant
Dim intCount As Integer
   '
   ' RemoveBar "mnuItens"
    ArrButtons = Array( _
                    Array("Adicionar", "Adiciona Novo Item", 462, "AddItem"), _
                    Array("Excluir", "Exclui item selecionado", 464, "DelItem"), _
                    Array("Atualizar", "Recarrega o grid", 1759, "Refresh"), _
                    Array("Editar", "Editar item atual", 162, "EditItem"), _
                    Array("Imprimir", "Imprime a folha", 2521, "Print") _
                    )
    Set cbrNewToolBar = Application.CommandBars.Add(Name:="mnuItens", Position:=msoBarPopup, Temporary:=False)
    For intCount = 0 To UBound(ArrButtons, 1)
        Set cmdNewButton = cbrNewToolBar.Controls.Add(msoControlButton)
        With cmdNewButton
            .OnAction = "=Teste()"
            .Style = msoButtonIconAndCaption
            .Caption = ArrButtons(intCount)(0) '"Salvar"
            .DescriptionText = ArrButtons(intCount)(1)    '"Salvar alterações"
            .FaceId = ArrButtons(intCount)(2)
            .Tag = ArrButtons(intCount)(3)
        End With
    Next intCount
    cbrNewToolBar.Enabled = True
Finally:
    Exit Sub
ErrControl:
    msgBox "Erro ao criar botoes!" & vbLf & "Por favor reinicie o sistema e tente novamente." & vbLf & "se o erro persistir contate a area de TI"
    Resume Finally

End Sub