Тестовая страница записи

				
					Sub DeleteHiddenSheets()
    Dim ws As Worksheet
    Dim wsCount As Integer
    Dim i As Integer
    
    wsCount = ThisWorkbook.Worksheets.Count
    
    For i = wsCount To 1 Step -1
        Set ws = ThisWorkbook.Worksheets(i)
        If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
    Next i
End Sub