VBA Neuer Menüeintrag an bestimmte Position

Question

Hallo,
folgendes Makro fügt dem Menü "Datei" einen neuen Menüpunkt hinzu. Statt ganz unten hätte ich den gerne unterhalb von "Speichern unter...". Was muss ich ergänzen?

Sub MenuelementHinzu()
MenuBars(xlWorksheet).Menus("Datei").MenuItems.Add Caption:="auf USB speichern", OnAction:="auf_USB_speichern"
End Sub

mfg
Wolfgang

Answer 1

Hallo,
ich habs gefunden:

Sub MenuelementHinzu()
MenuBars(xlWorksheet).Menus("Datei").MenuItems.Add Caption:="auf &USB speichern", before:=7, OnAction:="auf_USB_speichern"
End Sub

Before:=Ziffer
mfg
Wolfgang