Datei speichern / Fehlerbehandlung

Public Sub Dateispeichern()
On Error GoTo Ende
Application.StatusBar = "Speichern speichern..."
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.StatusBar = False
Exit Sub
Ende:
Application.StatusBar = False
MsgBox ("Es ist ein Fehler beim Speichern aufgetreten.")
On Error GoTo 0
End Sub

Ich würde den Code gern noch ein wenig erweitern hinsichtlich Fehlerbehandlung,
Z.B. könnte ich mir ausführlichere Fehlermeldungen vorstellen oder auch eine Abfrage im Fehlerfall, ob der Speichervorgang wiederholt oder abgebrochen werden soll.
Hat jemand da sowas in der Art schon realisiert?
Viele Grüße und vielen Dank für eure Tipps
Mathias