cell reference help

[scrabtree]

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

 

[Don Guillett]

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

 

[scrabtree]

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

 

[Tom Ogilvy]

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

 

[Guest]

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.

 

[scrabtree]

Lets say the destination cell is in sheet1, no problem.
But if it is in sheet2...error.

 

[Tom Ogilvy]

I was on sheet2, the information in sheet1 and the destination in sheet3.

No problem for me. If you put it in a sheet module then you will have
problems, but in a general module, no problems.

 

[scrabtree]

That did it

-----Original Message-----
I was on sheet2, the information in sheet1 and the destination in sheet3.

No problem for me. If you put it in a sheet module then you will have
problems, but in a general module, no problems.

--
Regards,
Tom Ogilvy




.

 

[Tom Ogilvy]

Only for you. So where do you think the error lies?