The following subs are examples of macros assigned to
forms buttons to move the user among various worksheets.
Suddenly, the "Range ("A1").Select" line does not work for
any of the subs. Can someone suggest what I have done to
mess this up?

Sub GoToMetrics()
Application.ScreenUpdating = False
Sheets("Metrics").Select
Range("A1").Select
ActiveWindow.Zoom = 57
Application.ScreenUpdating = True
End Sub

Sub GoToMetric1()
Application.ScreenUpdating = False
Sheets("Metrics").Select
Range("A1").Select
ActiveWindow.Zoom = 57
With ActiveSheet.ChartObjects("Chart 13")
.Height = 660
.Width = 780
.Top = 10
.Left = 125
.BringToFront
End With
Application.ScreenUpdating = True
End Sub