zum abspeichern einer Sheet verwende ich folgenden Befehl. Mein Problem ist nur, dass wenn sich das Fenster "Speichern unter" öffnet und ich gehe auf Abbrechen trotzdem gespeichert wird.
Sub Speichern()
fName = Application.GetSaveAsFilename("", fileFilter:="Exceldateien (*.xls),*.xls")
...mein Code
ActiveWorkbook.SaveAs Filename:=fName
End Sub