Create a hyperlink to workbook sheets on Sheet 1 and exclude certain sheets

[sofas]

Sub test()
  



Dim i As Integer

    i = 4

    For Each sh In ThisWorkbook.Worksheets
        ActiveWorkbook.Sheets("Sheet1").Hyperlinks.Add _
        Anchor:=ActiveWorkbook.Sheets("Sheet1").Cells(i, 1), _
        Address:="", _
        SubAddress:="'" & sh.Name & "'!A1", _
        TextToDisplay:=sh.Name
 sh.Hyperlinks.Add Anchor:=sh.Range("E5"), Address:="", SubAddress:="Sheet1" & "!A1", TextToDisplay:="Back to Sheet1"

        i = i + 1
  
      Next sh

Application.ScreenUpdating = False

End Sub

 

[sofas]

Hello. I want to create a hyperlink to the pages of the workbook on Sheet 1 and exclude certain sheets from the file, such as Sheet 5 and Sheet 12, while placing a link to return to the main page, without putting it in the main page, of course.

 

[sofas]

Is there any suggestion?

 

[jolivanes]

So what is on Sheet1 and where on Sheet1?

 

[sofas]

So what is on Sheet1 and where on Sheet1?

thank you for your interest. Sheet 1 is the main one. I want to put links to all the workbook sheets in column A
While ignoring certain sheets I have. For example, sheet 2 and sheet 12. Place a link to refer to Sheet 1 in all Sheets and ignore Sheets 2 and 12

 

[jolivanes]

So Column A, starting at A1, has all the sheet names except "Sheet2" and "Sheet12" or it has these names also but they are not hyperlinked?

 

[sofas]

So Column A, starting at A1, has all the sheet names except "Sheet2" and "Sheet12" or it has these names also but they are not hyperlinked?

'I was able to install this code. Perhaps there are better ways, but it works well and does what is required

Sub test()
Dim i As Integer
i = 2
For Each sh In ThisWorkbook.Worksheets
Select Case sh.Name
    Case Is = "Sheet1", "Sheet2", "Sheet12"
            Case Else
Application.ScreenUpdating = False
           
        ActiveWorkbook.Sheets("Sheet1").Hyperlinks.Add _
        Anchor:=ActiveWorkbook.Sheets("Sheet1").Cells(i, 1), _
        Address:="", _
        SubAddress:="'" & sh.Name & "'!A1", _
        TextToDisplay:=sh.Name
sh.Hyperlinks.Add Anchor:=sh.Range("b10"), Address:="", SubAddress:="Sheet1" & "!A1", TextToDisplay:="Reference"

    i = i + 1
    End Select

Next sh
Application.ScreenUpdating = True

End Sub