cell reference help
 

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

cell reference help
 

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

cell reference help
 

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


.

cell reference help
 

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

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


.

cell reference help
 

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


.

cell reference help
 

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

wrote in message
...
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


.

cell reference help
 

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

wrote in message
...
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


.



.

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


.