![]() |
|
#4
|
||||
|
||||
|
Quote:
Code:
Sub MakeLinks()
Dim wSheet As Worksheet, l As Long
l = 1
With Me
.Columns(2).ClearContents
.Cells(1, 2) = "INDEX"
.Cells(1, 2).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 2), Address:=ThisWorkbook.FullName, _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
| Tags |
| navigate to excel sheets, open a specific sheet |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Exporting workbook specific sheet columns on exit
|
shabbaranks | Excel Programming | 4 | 08-21-2012 08:00 AM |
permanently unprotecting a sheet or workbook
|
mrmagoo | Excel | 2 | 07-04-2012 08:12 PM |
| Shared Excel workbook | eguru2 | Excel | 0 | 07-12-2011 12:02 AM |
| paste graph between workbook/sheet | sandsoppa | Excel | 2 | 02-25-2011 02:29 PM |
How do I merge data from one sheet in a workbook out into multiple sheets
|
nolesca | Excel | 4 | 06-07-2010 08:13 AM |