Adding hyperlink in all sheets

[shreeram.maroo]

Hi,

I have an excel file which has 100 worksheets.. I need to add hyperlink to "home" worksheet in A1 cell of every worksheet. Can this be done through quickly through VBA ?

Thanks in advance
Shreeram

[StuartR]

Code: Select all

Dim sht As Worksheet
For Each sht In Worksheets
    If sht.Name <> "Sheet1" Then
        sht.Hyperlinks.Add Anchor:=sht.Range("A1"), Address:="", SubAddress:="'Sheet1'!A1", TextToDisplay:="Home"
    End If
Next sht

Replace Sheet1 with the name of your first sheet

[shreeram.maroo]

Thanks a lot Stuart