ScreenUpdating Problem

[pjhageman]

This code does not work unless I comment out the ScreenUpdating lines.
Can someone help correct this problem?
Thanks, Phil

Sub GoToStrategy1() 'Positions the first strategy on screen
Application.ScreenUpdating = False
Range("A1").Select
ActiveWindow.Zoom = True
ActiveWindow.Zoom = 62 'Sizes the window to 62%
Application.ScreenUpdating = True
End Sub

 

[Rocky McKinley]

It works fine on Excel 2002 & WinXP Pro, is there a "Change Event" firing
when selecting "A1" that calls other code that could be interfering? It's
just a hunch but you could try turning "off " and then "on" events while
running the code.

I don't think you need the "ActiveWindow.Zoom = True", this makes the zoom
400% which is unnecessary because it really ends up at 62% anyway.

Sub GoToStrategy1() 'Positions the first strategy on screen
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("A1").Select
'ActiveWindow.Zoom = True
ActiveWindow.Zoom = 62 'Sizes the window to 62%
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub