Hyperlink

  • Thread starter Thread starter Boss
  • Start date Start date
B

Boss

I have ten sheets and a summary sheet.

In the column A of summary sheet i have all the other sheets names.

i need a code which will automatically link all the sheets as hyperlink to
the summary sheet.

Any help would be appreciatd.
thx!
Boss
 
Try the below macro in summary sheet..

Sub Macro()
Dim lngRow As Long, lngLastRow As Long
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = 1 To lngLastRow
ActiveSheet.Hyperlinks.Add Range("A" & lngRow), Range("A" & lngRow)
Next
End Sub

If this post helps click Yes
 
Correction to the previous post

Sub Macro1()
Dim lngRow As Long, lngLastRow As Long
Dim myRange As Range
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = 1 To lngLastRow
Set myRange = Range("A" & lngRow)
ActiveSheet.Hyperlinks.Add Anchor:=myRange, Address:="", SubAddress:= _
myRange.Text & "!A1", TextToDisplay:=myRange.Text
Next
End Sub

If this post helps click Yes
 
This does not work...

I need to click on A1 and it should open the corresponding worksheet in the
same file. thx!

Example:
A1.value = "test" then it should open the worsheet test

thx!
 
Try the corrected version

Sub Macro1()
Dim lngRow As Long, lngLastRow As Long
Dim myRange As Range
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = 1 To lngLastRow
Set myRange = Range("A" & lngRow)
ActiveSheet.Hyperlinks.Add Anchor:=myRange, Address:="", SubAddress:= _
myRange.Text & "!A1", TextToDisplay:=myRange.Text
Next
End Sub

If this post helps click Yes
 
Thanks a lot... That worked perfectly..

How can i remove the TextToDisplay, if i wish to keep it as blank...

thx!
 
If text to display is set as blank as below; the full reference will be visible

TextToDisplay:=""

So if we keep a blank space ( as below) a underscore will be visible.

TextToDisplay:=" "


If this post helps click Yes
 
You helped me a lot... thx!

Jacob Skaria said:
If text to display is set as blank as below; the full reference will be visible

TextToDisplay:=""

So if we keep a blank space ( as below) a underscore will be visible.

TextToDisplay:=" "


If this post helps click Yes
Click to expand...
 
Back
Top