N
Nigel
I have a worksheet and I am using code to add some Hyperlinks, I am using
code to add the hyperlink but for some unknown reason it is not entering the
sub address correctly, Here is the code maybe someone could point me in the
right direction
Range("H1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A3:A45", TextToDisplay:="Americas"
Range("I1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A47:A89", TextToDisplay:="Asia\Pac"
Range("J1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A91:A133", TextToDisplay:="Eur\ROW"
Range("K1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A135:A177", TextToDisplay:="Market"
Range("L1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A179:A192", TextToDisplay:="Summary"
it puts A1 as the Cell Reference
Thanks
Nigel
code to add the hyperlink but for some unknown reason it is not entering the
sub address correctly, Here is the code maybe someone could point me in the
right direction
Range("H1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A3:A45", TextToDisplay:="Americas"
Range("I1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A47:A89", TextToDisplay:="Asia\Pac"
Range("J1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A91:A133", TextToDisplay:="Eur\ROW"
Range("K1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A135:A177", TextToDisplay:="Market"
Range("L1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Billing!A179:A192", TextToDisplay:="Summary"
it puts A1 as the Cell Reference
Thanks
Nigel