Скрытие строк на скрытом листе

Sub Generate()
    Dim ws0 As Worksheet
    Set ws0 = Worksheets("Лист0")
    
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Лист1")
 
    Dim rn As Range
    Set rn = ws1.Range("A1:Z100")
 
Application.ScreenUpdating = False
 
    With ws1
        
        .Visible = xlSheetVisible 
        .Activate
       
        ConditionalHide rn, "hide"
        ConditionalShow rn, "show"
        
        .PrintPreview
        .Visible = xlSheetHidden
    End With
 
Application.ScreenUpdating = True
End Sub
 
Sub ConditionalHide(ByVal rn As Range, ByVal searchFor As String)
    On Error GoTo 1
    Do
        rn.Find(searchFor, , xlValues, xlWhole, , , False, , False).EntireRow.Hidden = True
    Loop
1:
End Sub
 
Sub ConditionalShow(ByVal rn As Range, ByVal searchFor As String)
    Dim r As Range
    For Each r In rn.Rows
        If r.Hidden = True Then
            r.Hidden = False
            If r.Find(searchFor, , xlValues, xlWhole, , , False, , False) Is Nothing Then r.Hidden = True
        End If
    Next r
End Sub

ActiveSheet.Rows(х).ShowDetail = True

a = Rows(х).OutlineLevel

a = ActiveCell.EntireRow.OutlineLevel

Sub ConditionalHide(ByVal rn As Range, ByVal searchFor As String)
    Dim avArr, lr As Long, lc As Long
    avArr = rn.Value
    For lr = 1 To UBound(avArr, 1)
        For lc = 1 To UBound(avArr, 2)
            If avArr(lr, lc) = searchFor Then
                Rows(lr).Hidden = True
            End If
        Next lc
    Next lr
End Sub