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