Ausgeblendete Blätter reporten

Sub VersteckteBlaetterReport()
    Dim ws As Worksheet, out As Worksheet, r As Long
    Set out = Worksheets.Add
    out.Name = "Hidden_Report_" & Format(Now, "hhnnss")
    out.Range("A1:B1").Value = Array("Blatt", "Status")
    r = 2
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible <> xlSheetVisible Then
            out.Cells(r, 1).Value = ws.Name
            out.Cells(r, 2).Value = IIf(ws.Visible = xlSheetVeryHidden, "VeryHidden", "Hidden")
            r = r + 1
        End If
    Next ws
    out.Columns.AutoFit
End Sub