cell reference help
It is still giving me the same error. If the cell it is
trying to go to is in Sheet 1, no problem. If it is in
Sheet 2....error.
-----Original Message-----
Sub find()
Application.Goto Range(Range("Sheet1!A1").Value), True
End Sub
Sub DefineCellAddress()
MyCellAddr = "''" & ActiveCell.Parent.Name & "'!" &
ActiveCell.Address
Worksheets("Sheet1").Range("A1").Value = MyCellAddr
End Sub
worked fine for me.
I made and adjustment to the first line of
DefineCellAddress
--
Regards,
Tom Ogilvy
"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
.
|