Slow loop

Hello!

Jeg ønsker at skjule linier, som ikke opfylder to krav. Mit problem er, at benytter jeg entirerow.hidden eller bare offset.value = en værdi er loopet ekstremt langsomt. Det er ca. 30*700.

Først prøvede jeg entirerow.hidden og efterfølgende ville jeg bare sætte et 1-tal i en kolonne, og lave filter på denne, da filter er meget hurtigere.

Det ser således ud:

For Each fo In hLrng
    If fo.Offset(0, 5).Value = "x" Then
            For Each an In rngTree
              With an
                                                   
                    If .Value = vbNullString Or (fo.Value .Value _
                    And fo.Offset(0, 6).Value = .Offset(0,5).Value) Then
                           
                            .EntireRow.Hidden = False
                                           
                    End If
               
                End With
               
            Next
   
        End If
   
    Next


Loopet er hurtigt nok i sig selv.

Hjælp søges.