Поиск значения на скрытой строке

[cheitu]

Код запускается из листа0.

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

Но значение "hide" и "show" находятся на скрытом листе1 в группированных столбцах. Он не видит эти значения. Если на листе эти значения разгруппировать, то макрос работает.

Как уйти от этой ошибки?

Может изменить xlValues на xlFormulas???