Оглавление книги Excel без скрытых вкладок

[ILF_ollie]

Добрый день.
Мне нужно создать оглавление листов книги, при этом скрытые листы в оглавлении добавляться не должны.
Подскажите, как исправить код:

Sub SheetList()
Dim sheet As Worksheet
Dim cell As Range
With ActiveWorkbook
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets(1).Cells(sheet.Index, 1)
.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
cell.Formula = sheet.Name
Next
End With
End Sub

[IgorGO]

For Each sheet In ActiveWorkbook.Worksheets 
  if sheet.visible = xlSheetVisible then
    Set cell = Worksheets(1).Cells(sheet.Index, 1) 
    .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1" 
    cell.Formula = sheet.Name
  end if
Next