Diese Beispiele demonstrieren das Umbenennen vorhandener Menüeinträge:

Const Neue_Bezeichnung = "&Ich wurde umbenannt !"

'Benennt "Extras" um
Sub Menüpunkt_umbenennen()
    On Error Resume Next
    CommandBars("Worksheet Menu Bar"). _
       Controls("E&xtras").Caption = Neue_Bezeichnung
End Sub

'Setzt "Extras" wieder zurück
Sub Menüpunkt_zurücksetzen()
    On Error Resume Next
    CommandBars("Worksheet Menu Bar"). _
       Controls(Neue_Bezeichnung).Caption = "E&xtras"
End Sub

'Benennt "Speichern" im Menü "Datei um
Sub Menüeintrag_umbenennen()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls("Speichern").Caption = Neue_Bezeichnung
End Sub

'Setzt "Speichern" im Menü "Datei" wieder zurück
Sub Menüeintrag_zurücksetzen()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls(Neue_Bezeichnung).Caption = "&Speichern"
End Sub