Aca creas una barra en complementos pero tienes que guardarla como complementos. xla

Sub crear_barra()
Dim Boton As CommandBarButton

CommandBars.Add(Name:="aux").Visible = True
Set Boton = CommandBars("aux").Controls.Add(Type:=msoControlButton)
With Boton
.Caption = "Balances APTS"
.FaceId = 6772
.OnAction = "Balances_Fecha_Corte"

End With


CommandBars.Add(Name:="Awen").Visible = True
Set Boton = CommandBars("Awen").Controls.Add(Type:=msoControlButton)
With Boton
.Caption = "Ordena 351 para revisión"
.FaceId = 6770
.OnAction = "Tablas_Dinamica_351"
End With


End Sub

Sub cerrar_barra()
On Error Resume Next
CommandBars("Awen").Delete
CommandBars("Aux").Delete
End Sub