Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ScreenUpdating Problem
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 --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ScreenUpdating Problem
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 -- Regards, Rocky McKinley "pjhageman " wrote in message ... 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 --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
about screenupdating | Excel Discussion (Misc queries) | |||
Screenupdating Problems | Excel Discussion (Misc queries) | |||
.ScreenUpdating Problem? | Excel Programming | |||
ScreenUpdating not effective | Excel Programming | |||
screenupdating command ignored | Excel Programming |