How to Create Hyperlinks

[Vibhuti Shrotriya]

Dear Group Members,

I have 5 Sheets named as AG1, AG2, AG3, AG4, AG5.

I want to create Hyperlinks in A Column for all sheet names.

Please help.

Thanks & Regards

Vibhuti S.

 

[GENIUS UFO]

Sub CreateLinksToAllSheets()
    Dim sh As Worksheet
    Dim cell As Range
    For Each sh In ActiveWorkbook.Worksheets
        If ActiveSheet.Name <> sh.Name Then
            ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "'" & sh.Name & "'" & "!f1", TextToDisplay:=sh.Name
            ActiveCell.Offset(1, 0).Select
        End If
    Next sh
    End Sub

[Vibhuti Shrotriya]

Thanks..!

Working perfect for me.