"speichern unter" per makro

ich hab schon dreimal im Forum diese Frage gestellt und leider nichts anfangen können mit den Lösungsvorschlägen.. aber es hat mich auf die richtige Fährte gebracht.

Hier meine Lösung:

Sub SaveAuftrag()
ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Desktop\Aufträge\" & Range("F2").Value, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

danke an Hajo, Nepumuk für die Vorschläge