Zoom problem
 

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

Zoom problem
 

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

"Phil" wrote in message
...
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

Zoom problem
 

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

"Phil" wrote in
message
...
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


.