Excel Forum

Code: Select all

Sub Createhyper()
    Dim sh As Worksheet
    Dim wSheet As Worksheet
    Sheets("Main").Range("B6").Select
    Application.ScreenUpdating = False
    For Each wSheet In Worksheets
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & wSheet.Name & "'" & "!B6", TextToDisplay:=wSheet.Name
        ActiveCell.Offset(1, 0).Select
    Next
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub Createhyper()
    Dim sh As Worksheet
    Dim wSheet As Worksheet
    Sheets("Main").Range("B6").Select
    Application.ScreenUpdating = False
    For Each wSheet In Worksheets
    If wSheet.Name <> "Main" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & wSheet.Name & "'" & "!B6", TextToDisplay:=wSheet.Name
        ActiveCell.Offset(1, 0).Select
    End If
    Next
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub Createhyper()
    Dim i As Integer
    Sheets("Main").Range("B6").Select
    Application.ScreenUpdating = False
    For i = 6 To Sheets.Count
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
        SubAddress:="'" & Sheets(i).Name & "'" & "!B6", TextToDisplay:=Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i
    Application.ScreenUpdating = True
End Sub