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

  • Thread starter Thread starter tuli
  • Start date Start date
T

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
 
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
Click to expand...

Address and Subaddress have to be strings and not objects.


Regards
Claus B.
 
Hi,

Am Tue, 31 Dec 2013 13:11:31 -0800 (PST) schrieb tuli:
Any ideas on how do do it?
Click to expand...

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.
 
Back
Top