Most likely you changed the name of the Sheet "Metrics" and your subs can't
find it any more. make sure such sheet exists.

Also, you cxan simplify your subs like this:

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



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