Exclude hidden sheets in Table of Contents code

Yes, quite easily in fact.
But first you need to comply with the forum rules and use code tags around the code in your post.

BSB

sorry, 2nd day on site. Is this correct?

Sub CreateLinksToAllSheets()
Dim sh As Worksheet
Dim cell As Range
Range("C7:C40").Select
Selection.ClearContents
Range("C7").Select
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
Range("C7:C40").Select
With Selection.Font
.Size = 13
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("o4").Select
End Sub

I kinda meant put the code tags in your original post....

Add the lines in red to your code and give that a whirl.

Sub CreateLinksToAllSheets()
    Dim sh As Worksheet
    Dim cell As Range
    Range("C7:C40").ClearContents
    Range("C7").Select
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Visible = True 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
    Range("C7:C40").Select
    With Selection.Font
        .Size = 13
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("o4").Select
End Sub

BSB

Got it, thanks for the guidance.
And thanks for the code - works perfectly.

Happy to help.

Worth pointing out that you rarely need to select a range to manipulate it through VBA.
So this from your code:

    Range("C7:C40").Select
    With Selection.Font

Could just as easily be:

    With Range("C7:C40").Font

I'd already changed the ClearContents part near the start of your code but didn't spot this one until after I replied.

BSB

thanks again! I'm such a VBA newbie - I really appreciate it!

No problem. We're here to help. We were all VBA noobs at some point :D

BSB