Zoom problem

[Phil]

In the below code, I get a Run-time error:'1004', "Unable
to set the Zoom property of the window class." The intent
here is to insure the window is sized to 54% when
the "Metrics" worksheet is selected by the macro. What do
I need to do to fix this?

Sub GoToMetric1()
'GoToMetricA1 Macro
Sheets("Metrics").Select
ActiveWindow.Zoom = 54
Range("A1").Select
ActiveSheet.ChartObjects("Chart 13").Activate
With ActiveChart.Parent
.Height = 550
.Width = 650
.Top = 10
.Left = 125
End With
End Sub

 

[Tom Ogilvy]

Is the code in a sheet module. If so, try moving it to a general module and
call it from your sheetmodule.

 

[Phil]

Thanks, Tom

-----Original Message-----
Is the code in a sheet module. If so, try moving it to a general module and
call it from your sheetmodule.

--
Regards,
Tom Ogilvy




.