Indholdsfortegnelse uden alle faner

Sub Indholdsfortegnelse()
    Application.ScreenUpdating = False
    Range("B2").Select
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Worksheets
    If ActiveSheet.Name <> SH.Name Then
        If Not SH.Name = "Data" Then
        If Not SH.Name = "Tom fil" Then
        If Not SH.Name = "Total" Then
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    SH.Name & "!A1", TextToDisplay:=SH.Name
    ActiveCell.Offset(1, 0).Select
        End If
        End If
        End If
    End If
    Next SH
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.InsertIndent 1
End Sub

Sub Indholdsfortegnelse()
    Application.ScreenUpdating = False
    Range("B2").Select
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Worksheets
    If ActiveSheet.Name <> SH.Name Then
        If Not SH.Name = "Data" And Not SH.Name = "Tom fil" And Not SH.Name = "Total" 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
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.InsertIndent 1
End Sub