Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Creates a hyperlink to each worksheet in the workbook excluding the worksheet containing rgLinks
Sub CreateLinks()
    Dim rgLinks As range
    Set rgLinks = range("C1")
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.name <> rgLinks.Parent.name Then
            rgLinks.Hyperlinks.add rgLinks, ThisWorkbook.name, _
                "'" & ws.name & "'!A1", ws.name, ws.name
            Set rgLinks = rgLinks.Offset(1, 0)
        End If
    Next
    Set ws = Nothing
End Sub