Fiz alguns incrementos no seu código associado ao botão:

Sub GetSheets()
    Dim j As Integer
    Dim NumSheets As Integer
    Dim shp As Shape
    
    NumSheets = Sheets.Count
    
    Range("H10:H" & Rows.Count).ClearContents
    
    For j = 1 To NumSheets
        Sheets(j).Activate
        Sheets("PRINCIPAL").Cells(j, 5) = Sheets(j).Name
        
        For Each shp In Sheets(j).Shapes
            shp.Select
            If Selection.Characters.Text = "DIVERSOS" Then
                Sheets("PRINCIPAL").Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets(j).Name
            End If
        Next shp
        
    Next j
    
    Sheets("PRINCIPAL").Activate
    Range("H10").Activate
End Sub

Bom dia Amigo!

Quando adiciono em qualquer Sheet um comentário do Excel, ao clicar no botão (LISTA DE SHEETs) ocorre um erro em tempo de execução.

Poderia me ajudar?

Abs

Interessante, quadro do comentário é um shape, então pelo código há um comando para selecionar o shape, mas como o comentário está oculto, dá erro por não conseguir selecionar. A solução é colocar mais um if perguntando se o shape está visivel, se tiver segue, senão pula. Ficaria:

Sub GetSheets()
    Dim j As Integer
    Dim NumSheets As Integer
    Dim shp As Shape
    
    NumSheets = Sheets.Count
    
    Range("H10:H" & Rows.Count).ClearContents
    
    For j = 1 To NumSheets
        Sheets(j).Activate
        Sheets("PRINCIPAL").Cells(j, 5) = Sheets(j).Name
        
        For Each shp In Sheets(j).Shapes
        If shp.Visible Then
            shp.Select
            If Selection.Characters.Text = "DIVERSOS" Then
                Sheets("PRINCIPAL").Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets(j).Name
            End If
        End If
        Next shp
        
    Next j
    
    Sheets("PRINCIPAL").Activate
    Range("H10").Activate
End Sub

Muito obrigado Amigo!

Ficou perfeito.

Abs