Private Sub Workbook_Open()
Dim sh as Worksheet, sh1 as Worksheet
Application.ScreenUpdating = False
set sh = Activesheet
for each sh1 in thisworkbook.Worksheets
sh1.Activate
sh1.Range("A1").Select
Next
sh.Activate
Application.ScreenUpdating = True
End Sub

I would expect to work.

--
Regards,
Tom Ogilvy


"AussieDave" wrote in message
ups.com...

AussieDave wrote:
Tom Ogilvy wrote:
Why can't you use Application.ScreenUpdating = False

--
Regards,
Tom Ogilvy


"AussieDave" wrote:

Hi all, I have a workbook with an auto_open macro which cycles
through
all worksheets, selecting "A1" so that each of the 30+ sheets
displays
in the top left position when opened. Works perfectly except for the
whirring display to the user, as I cannot use
"Application.ScreenUpdating = False" to suppress the display. Any
help
appreciated, Thanks, Dave


Hi Tom, I tried it and, although the cursor was moved to A1, the
displayed part of the sheet remained as it was positioned prior to
moving the cursor.
BTW, I'm using Range("A1").Select to move the cursor - what would be
the preferred option here?