Execute script before save

[daw...@gmail.com]

Hello everyone!

Due to some very finicky software I must move focus cell on every
sheet to cell A1 before submitting spreadsheet for further processing.
My knowledge of VBScripting is very limited hence I'm asking these
questions:

1. How do I intercept the save event?
2. How do I iterate through all sheets in spreadsheet and move the
focus cell to A1?

Your help will be greatly appreciated!

Thanks,
Dawid

[daw...@gmail.com]

To answer my own post:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheet(1).Activate
Sheet(1).Range("A1").Select
End Sub

Alternatively one can put sheet name in quotes instead of number.

Dawid