Hyperlinks for Sheets by code

[LearnMeExcel]

Hi all

Sub AddHyperLink()
Dim ws As Worksheet
For Each ws In Sheets
    If ws.Name <> "Main" Then
        ws.Hyperlinks.Add Anchor:=Range("a1"), Address:="", _
        SubAddress:="Main!B2", TextToDisplay:="Back To Main"
    End If
Next ws
End Sub

this just work for one sheet not for all
should i activate every sheet before add hyperlink by
ws.activate
or what ?

 

[DonkeyOte]

You need to qualify your anchor reference either via ws prefix or an outer With statement, e.g:

ws.Hyperlinks.Add Anchor:=ws.Range("A1"), Address:="", _
        SubAddress:="Main!B2", TextToDisplay:="Back To Main"

or (With)

With ws
    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
        SubAddress:="Main!B2", TextToDisplay:="Back To Main"
End With

 

[LearnMeExcel]

Thanx Lucke
it is working now