Why something "is not working" is almost always impossible to diagnose.
Would you care to share some details? What happens? Is there an error
message? If so, what is it? If not, does the rest of the Sub continue? Do
you have the code in a standard module? And why do you want to select A1
anyway?

--

Vasant


"Phil Hageman" wrote in message
...
The Sub below is attached to a forms control button, and
the line Range ("A1").Select is not working. Can someone
help correct this?

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