VBA to create a link to every sheet except one

[kasermap]

I have a file that has multiple worksheets. The first sheet is a summary sheet pulling information from every other sheet. The first column lists the names of every sheet after the first one. I am trying to have all of those names have links to them, but the problem is my code is adding a link to the current sheet I am on. How do I get it to skip the first sheet aka "Summary-Sheet"

Dim Ws As Worksheet

Worksheets("Summary-Sheet").Select
Range("A2").Select

For Each Ws In ActiveWorkbook.Worksheets
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A2" & "", ScreenTip:="", TextToDisplay:=Ws.Name
ActiveCell.Offset(1, 0).Select

Next Ws

[6StringJazzer]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[KOKOSEK]

What about:

Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
 If Ws.Name <> "Summary-Sheet" Then
    ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A2" & "", ScreenTip:="", TextToDisplay:=Ws.Name
    ActiveCell.Offset(1, 0).Select
 End If
Next Ws

[kasermap]

It put the hyperlink starting in cell A1 instead of A2. I am also getting 'reference not valid' when I click a link.

[KOKOSEK]

Macro works. I don't know how you run it.
Attached sample file.