Tidying up a large Woorkbook

[BallGazer]

Hi Guys

can someone help me out with a little VBA?

I have a very large Workbook (55 sizeable pages). A number of people in offices around the World need to contribute to this model. When each of them have completed their bit I would like the model left in a tidy fashion for the next contributor. I am trying to write some VBA as a "Before_Close" module to cycle though all the sheets in the model and "park" the active cell at ("A1"). I don't believe this should be difficult but it is stretching my clapped out brain!

Any help greatly appreciated.

Regards

BG

 

[VoG]

Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
    Application.Goto reference:=ws.Range("A1"), scroll:=True
Next ws
Application.ScreenUpdating = True
End Sub

 

[BallGazer]

Thanks for the suggestion. Unfortunately I get an error on

Application.Goto reference:=ws.Range("A1"), scroll:=True

Error code 1004 (what ever that is!)

 

[VoG]

Hidden sheet(s)? If so try

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Visible = xlSheetVisible Then
        Application.Goto reference:=ws.Range("A1"), scroll:=True
    End If
Next ws
Application.ScreenUpdating = True
End Sub

 

[BallGazer]

Thank you. Works a treat. Sorry I didn't mention the hidden sheets!

BG

 

[BallGazer]

Thank you. Works a treat. Sorry I didn't mention the hidden sheets!

BG