Hacer referencia a un elemento de submenu

Hola a todos

tengo una una barra de menus con varios submenus, a cuyos elementos no
se como hacer referencia directa/sencilla una vez creados, o sea, en
procedimientos independientes del de creacion. Hasta ahora lo estoy
haciendo a base de sucesivos bucles ->

Menus->Submenu->Elemento

aunque asi parece funcionar bien, supongo que debe de haber forma de
nombrarlos sin los bucles.
He hecho varias pruebas tipo ->

-> With Commandbars(index).Controls(index): .Controls(index)

o directamente-> Commandbars("Caption")

pero de momento me da error.

este proc. es un ej. de uso que funciona bien: ->

Sub Actualizar_Visibles()
Dim Ind As Long
Dim Menu As CommandBarControl
Dim OpMenu As CommandBarControl
With Hoja1
For Each Menu In Application.CommandBars("Menus_Libreria").Controls
If Menu.Index = 2 Then
For Each OpMenu In Menu.Controls
If OpMenu.Index = 3 Then
For Ind = 1 To 4
Select Case Hoja1.Range("H" & 15 + Ind).Value
Case "Marcado": OpMenu.Controls(Ind).FaceId = 1087
Case "Desmarcado": OpMenu.Controls(Ind).FaceId = 1088
End Select
Next
End If
Next
End If
Next
End With
End Sub

como veis, aunque funcione bien, no deja de ser un poco engorroso tanto
codigo para decir solamente algo asi como->

-> Si la Celda(tal)="Cual" entonces el Elemento(tal).FaceId=x

bueno, supongo que lo que pienso es posible, pero hasta ahora no lo he
conseguido. Si podeis echarme 'otra' mano os lo agradezco

un saludo y hasta pronto
Ivan