SheetDiagnostics.vba

Sub DiagnosticoSheets()
    Dim wbThis As Workbook, wbActive As Workbook
    Dim msg As String

    Set wbThis = ThisWorkbook
    Set wbActive = ActiveWorkbook

    msg = "ThisWorkbook: " & wbThis.Name & vbCrLf
    msg = msg & "ActiveWorkbook: " & IIf(wbActive Is Nothing, "(nenhum)", wbActive.Name) & vbCrLf
    msg = msg & "ThisWorkbook.Sheets.Count = " & wbThis.Sheets.Count & vbCrLf
    msg = msg & "ThisWorkbook.Worksheets.Count = " & wbThis.Worksheets.Count & vbCrLf
    msg = msg & "Lista de abas em ThisWorkbook:" & vbCrLf

    Dim i As Long
    For i = 1 To wbThis.Sheets.Count
        msg = msg & i & " => " & wbThis.Sheets(i).Name & " (Type: " & TypeName(wbThis.Sheets(i)) & ")" & vbCrLf
    Next i

    MsgBox msg, vbInformation, "Diagnóstico de Sheets"
End Sub