Vba BeforeSave to move cursor to cell A1 all on sheets

[mvhs1073933]

Hello Mr.Excel Community,

I am trying to find VBA code that moves my cursor to cell A1 on every sheet whenever I save any workbook. I have try to make an Application level event, but keep running in compiling issues. Any help would be appreciated?

Thanks,

mvhs1073933

 

[lrobbo314]

Try this.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim ws As Worksheet: Set ws = ActiveSheet
Sheets.Select
Range("A1").Select
ws.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[mvhs1073933]

Thanks for the code.

Where do I add this code? I added it to ThisWorkBook in Personal.XLSB and didn't work.