I want to have the option to set all cells to A1 before a save (or not set
them before a save).

Here is what I've put together so far from examples.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
a = MsgBox("Do you want to set all sheets to A1?", vbYesNo)
If a = vbNo Then

(I need a command here to save the workbook and skip the call to SetA1)

SetA1
End Sub


Sub SetA1()
Application.ScreenUpdating = False
For Each ws In Sheets
ws.Activate: ws.Range("A1").Activate
Next
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub


I suspect, however that someone will suggest a better way to do what I want.
I'm all for that !!