Below is the current code I am using. If the "Goto" cell
in Sub find () is in Sheet1 then there is no problem. If
the "Goto" cell is in Sheet2 I get a user defined/object
defined error???

Public MyCellAddr As String
Sub DefineCellAddress()
MyCellAddr = "''" & ActiveCell.Parent.Name & "'!" &
ActiveCell.address
Worksheets("Sheet1").Range("A1").Value = MyCellAddr
End Sub
Sub find()
Application.Goto Range(Range("Sheet1!A1").Value), True
End Sub