Complementos - Añadir un submenú

Estoy intentando hacer (copiar) un complemento que encontré en internet. Es
para pasa de mayús a minús

Los procedimientos están bien:

Sub Mayusculas()
Dim c As Range
For Each c In Selection
c.Value = StrConv(c.Value, vbUpperCase)
Next c

End Sub

Sub Minusculas()
Dim c As Range
For Each c In Selection
c.Value = StrConv(c.Value, vbLowerCase)
Next c
End Sub

Pero a la hora de poner un submenú en el menú Herramientas me da un error.
Supongo que era un ejemplo para Excel 2000:

Public Sub PonerMenu()
Dim NuevoMenu As Object
Dim OpcionMenu As Object
Dim MenuHerr As Object
Set NuevoMenu = CommandBars.FindControl(Type:=msoControlPopup,
Tag:="Utilidades")
' If NuevoMenu Is Nothing Then
' Set MenuHerr = CommandBars.FindControl(ID:0007)
' If Not MenuHerr Is Nothing Then
Set NuevoMenu = MenuHerr.Controls.Add(Type:=msoControlPopup)
NuevoMenu.Caption = "&Utilidades"
NuevoMenu.Tag = "Utilidades"
NuevoMenu.Visible = True
' Set OpcionMenu = NuevoMenu.Controls.Add(Type:=msoControlButton)
' OpcionMenu.Caption = "Mayusculas"
' OpcionMenu.OnAction = "Mayusculas"
' Set OpcionMenu = NuevoMenu.Controls.Add(Type:=msoControlButton)
' OpcionMenu.Caption = "Minusculas"
' OpcionMenu.OnAction = "Minusculas"
' End If
' End If
Set MenuHerr = Nothing
Set NuevoMenu = Nothing
Set OpcionMenu = Nothing
End Sub

Public Sub QuitarMenu()
Dim Menu As Object
Set Menu = CommandBars.FindControl(Type:=msoControlPopup,
Tag:="Utilidades")
If Not (Menu Is Nothing) Then
Menu.Delete
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
QuitarMenu
End Sub

Private Sub Workbook_Open()
PonerMenu
End Sub

Me da el error 91, supongo que objeto vacío. No sé muy bien como crear ese
submenú. Ayuda, please :)

Gracias por responder