VBA - Criando Menus Personalizados

Sub criar_menu()
'Declarando as variáveis
Dim MenuObject As CommandBarPopup
Dim MenuItem As Object
Dim SubMenuItem As Object

'Atribui o valor da variável
Set MenuObject = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=10, temporary:=True)
MenuObject.Caption = "Meu Menu Expert"
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
'Nome do botão
MenuItem.Caption = "Cliente"
'Separação por grupo
MenuItem.BeginGroup = True
'Nome da macro que irá executar
MenuItem.OnAction = "Cliente1"
'Ícone que aparecerá no botão
MenuItem.FaceId = "18"
End Sub

Sub Cliente1()
MsgBox "Bem vindos ao Site que Ama o Excel"
End Sub