Office: Speichern unter......mit Makro Word 2007 Windows 7

Hallo Miteinander,

ich habe folgendes Problem. In meinem Dokument habe ich folgendes Makro installiert:

Sub Speichern()
Dim name As String

name = ActiveDocument.Bookmarks("Überschrift").Range.Text & ".docm"

With Dialogs(wdDialogFileSaveAs)
.name = "f:\eigene Dateien\Rezepte\Fleisch\" & name
.Show
End With
End Sub

Mit diesem habe ich meine Dokumente unter Windows XP immer gespeichert bekommen. Jetzt bin ich auf Windows 7 umgestiegen und nichts geht mehr.
Der Speichern-Dialog mit dem richtigen Namen wird zwar angezeigt, aber sobald ich Enter drücke, kommt die Meldung:

Test
.docm
Der Dateiname ist ungültig

(Genauso geschrieben)
Die Sicherheitseinstellungen stehen auf Makro zulassen.
Hat hier noch jemand eine Idee?

Vielen Dank im Voraus