cell reference help
Only for you. So where do you think the error lies?
--
Regards,
Tom Ogilvy
"scrabtree" wrote in message
...
Lets say the destination cell is in sheet1, no problem.
But if it is in sheet2...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
.
|