I don't need it to go to A1 but to the sheet and cell
referenced in A1


-----Original Message-----

try this instead. BTW the ,true will make it scroll from
that point. If not
needed, you can delete that part.

Application.Goto sheets("sheet1").Range("A1"), True


--
Don Guillett
SalesAid Software

"scrabtree" wrote
in message
...
The Sub Goto MyCell Aaddress () below keeps returning an
run time error, application or object defined error. I
also tried this and get the same error:

Sub find()
Application.Goto Range(Range("Sheet1!A1").Value),
True
End Sub




Public MyCellAddr As String
Sub DefineCellAddress()
MyCellAddr = "'" & ActiveCell.Parent.Name & "'!" &
ActiveCell.address
Worksheets("Sheet1").Range("A1").Value = MyCellAddr
End Sub
Sub GotoMyCellAaddress()
Range(MyCellAddr).Select
End Sub


.