ブック内の可視シートへのハイパーリンクのインデックスを作成

Question

ブック内の各シートのハイパーリンクのリストを作成するコードを見つけて実行しました。しかし、私はシートを隠していて、隠れたシートをハイパーリンクのリストに含めたくない。すべてのシートで機能するコードは、

結果のハイパーリンクリストから隠しシートを削除する簡単な方法はありますか？

ActiveSheet.Range("P4").Select 

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 & "'" & "!A1", TextToDisplay:=sh.Name 
     ActiveCell.Offset(1, 0).Select 
    End If 
Next sh 

Answer 1

ActiveSheet.Range("P4").Select 

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