Error 5 en tiempo de Ejecucion en Macro de Excel

[jonnyhelluz]

Buenas Compañeros, la verdad soy nuevo en macros y de Basic se muy poco pero me han pedido revisar este programa en excel que segun me dicen antes les aparecia una barra en la que podian operar ciertos datos pero ahora ya no aparece he tratado de revisarla y darle vueltas pero no consigo hacer aparecer la vendita barra y me vota el siguiente error:

Se ha producido el error '5' en tiempo de ejecución:
Argumento o llamada a procedimiento no válida

les muestro parte del codigo que depurando me indica esta el error.

ojala puedan ayudarme y les estaria muy agradecido...

Public Sub CreaBarra()
Dim A As CommandBar
Dim B As CommandBarButton
Set A = CommandBars.Add("BarOn", , , -1) /* El depurador me muestra el error en esta linea*/
A.Position = 1
A.Visible = -1
Set B = A.Controls.Add(1)
B.OnAction = "Datos"
B.FaceId = 328
B.Caption = "Datos Personales"
B.TooltipText = "Ingresa los datos personales del sujeto."
B.Style = 3
Set B = A.Controls.Add(1)
B.FaceId = 558
B.OnAction = "BE"
B.Caption = "Tipo de Evaluación"
B.TooltipText = "Establece el tipo de Evaluación."
B.Style = 3
Set B = A.Controls.Add(1)
B.FaceId = 65
B.OnAction = "CE"
B.Caption = "Cuestionario"
B.TooltipText = "Cuestionario BarOn (ICE) Niños."
B.Style = 3
Set B = A.Controls.Add(1)
B.BeginGroup = -1
B.FaceId = 64
B.OnAction = "Evaluar"
B.Caption = "Procesar"
B.TooltipText = "Procesa los datos ingresados en la Plantilla."
B.Style = 3
Set B = A.Controls.Add(1)
B.FaceId = 67
B.OnAction = "Borra"
B.Caption = "Borrar"
B.TooltipText = "Borra todos los datos ingresados en la Plantilla."
B.Style = 3
Set B = A.Controls.Add(1)
B.BeginGroup = -1
B.FaceId = 271
B.OnAction = "Enviar"
B.Caption = "Guardar Datos"
B.TooltipText = "Almacena los resultados en la Base de Datos."
B.Style = 3
Set B = A.Controls.Add(1)
B.OnAction = "CG"
B.FaceId = 46
B.Caption = "Cargar Datos"
B.TooltipText = "Busca un registo de la Base de Datos."
B.Style = 3
Set B = A.Controls.Add(1)
B.BeginGroup = -1
B.OnAction = "CL"
B.FaceId = 48
B.Caption = "Ver Colores"
B.TooltipText = "Visualiza las Hojas en 'balnco y negro' o 'color'"
B.Style = 3
Set B = Nothing
Set A = Nothing
End Sub