View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
squenson via OfficeKB.com squenson via OfficeKB.com is offline
external usenet poster
 
Posts: 78
Default macro for making hyperlinks

I recorded a macro that creates such link and I simply add a loop around.
Here is the result:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 02-08-2007 by SQ
'

For i = 1 To 65536
If Cells(i, "A").Value < "" Then
Cells(i, "A").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
"Sheet2!BB" & i, TextToDisplay:=Cells(i, "A").Value
End If
Next i

End Sub


Jack Sons wrote:
Hi all,

Im my workbook in sheet 1 I have 100 names in A2:A101.
I want to make each name a hyperlink that leads to the cell with the
corresponding rownumber in column BB of sheet 2.
So clicking the name/hyperlink in A8 of sheet 1 leads to BB8 in sheet 2.
I can't figure out the code.
Your assistance will be appreciated.

Jack Sons
The Netherlands


--
Message posted via http://www.officekb.com