Excel - Codigo Menu

Que Tal Foro…!
ayuda. Tengo este codio para generar un menu en excel, el cual

Option Explicit

Sub CreateMenu()
Dim cb As CommandBar, cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
DeleteCommandBar ' delete the custom menu if it already exists
Set cb = Application.CommandBars.Add("MyCommandBarName", msoBarTop, True, True)
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Nivel 1"
.Tag = "MyTag"
.BeginGroup = False
End With


Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 2"
.Tag = "SubMenu2"
.BeginGroup = True
End With


Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 3"
.Tag = "SubMenu3"
.BeginGroup = True
End With



Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 4"
.Tag = "SubMenu4"
.BeginGroup = True
End With

Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 5"
.Tag = "SubMenu5"
.BeginGroup = True
End With


Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&ELIMINAR MENU"
.BeginGroup = True

End With

If cbMenu Is Nothing Then Exit Sub
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Eliminar este menú"
.OnAction = ThisWorkbook.Name & "!DeleteCommandBar"
.Style = msoButtonIconAndCaption
.FaceId = 463
.BeginGroup = True
End With

cb.Visible = True

Set cbSubMenu = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub

Sub DeleteCommandBar()
On Error Resume Next
Application.CommandBars("MyCommandBarName").Delete
On Error GoTo 0
End Sub

Sub Macroname()
MsgBox "AbrirArchivo", vbInformation, ThisWorkbook.Name
End Sub


he numerado por nivel 1,2,3,4,5 etc.
Asi es como lo tengo

Nivel 1
Nivel 2 Nivel 3 Nivel 4 Nivel 5

como se le agregaria abajo del nivel 3, 4 y 5 mas niveles de tal forma que quedara
de la siguiente manera

Nivel 1
Nivel 2 Nivel 3 Nivel 4 Nivel 5
Nivel 2.2 Nivel 3.2 Nivel 4.2 Nivel 5.2




Correr el Codigo

Gracias Foro

chat: [email protected]

^Pues lee sobre VBA y practica.

Abraham