add hyperlink using sheet names and cells(i,j)

[tuli]

Hello,

I have these two routines. They are supposed to do the same. For some reason, the Y routine gives me an error.
Please advise

Thank you
Tuli


Public Sub X()
Sheets("Sheet1").Hyperlinks.Add Anchor:=Sheets("sheet1").Cells(1, 2), Address:="", SubAddress:= _
"'sheet2'!A1", TextToDisplay:="Back <<"
End Sub

Public Sub Y()

Sheets("Sheet1").Hyperlinks.Add Anchor:=Sheets("sheet1").Cells(1, 2), Address:="", SubAddress:= _
Sheets("sheet2").Cells(2, 1), TextToDisplay:="Back <<"
End Sub

 

[Claus Busch]

Hi,

Am Tue, 31 Dec 2013 12:30:17 -0800 (PST) schrieb tuli:

Public Sub X()
Sheets("Sheet1").Hyperlinks.Add Anchor:=Sheets("sheet1").Cells(1, 2), Address:="", SubAddress:= _
"'sheet2'!A1", TextToDisplay:="Back <<"
End Sub

Public Sub Y()

Sheets("Sheet1").Hyperlinks.Add Anchor:=Sheets("sheet1").Cells(1, 2), Address:="", SubAddress:= _
Sheets("sheet2").Cells(2, 1), TextToDisplay:="Back <<"
End Sub

Address and Subaddress have to be strings and not objects.


Regards
Claus B.

 

[tuli]

thanks,

Any ideas on how do do it?

 

[Claus Busch]

Hi,

Am Tue, 31 Dec 2013 13:11:31 -0800 (PST) schrieb tuli:

Any ideas on how do do it?

the way you did it in macro "X" is the best way to do it.
But you can also try:
SubAddress:= "Sheet2!" & Cells(2, 1).Address(0,0)


Regards
Claus B.