Hi Mike!
Here's a routine that I use:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Select
Application.Goto Reference:=Range("a1"), Scroll:=True
Next n
Application.Goto Reference:="StartPoint", Scroll:=True
Application.ScreenUpdating = True
End Sub
It does more than you ask but it sets up the workbook.
I have a cell named StartPoint that will be the top left cell when the
workbook is opened.
--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.