Blattsichtbarkeit dokumentiert zurücksetzen

Sub SichtbarkeitSichernUndEinblenden()
    Dim ws As Worksheet, rep As Worksheet, r As Long
    Set rep = Worksheets.Add(Before:=Worksheets(1))
    rep.Name = "Visibility_" & Format(Now, "hhnnss")
    rep.Range("A1:B1").Value = Array("Blatt", "Alter Status")
    r = 2
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> rep.Name Then
            rep.Cells(r, 1).Value = ws.Name
            rep.Cells(r, 2).Value = ws.Visible
            ws.Visible = xlSheetVisible
            r = r + 1
        End If
    Next ws
    rep.Columns.AutoFit
End Sub