Makro der skjuler linier

Hejsa

Jeg har følgende makro i mit regneark...

Sub Skjul()
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer
Dim rX As Range
svalue = "0"          'søgeværdi
scolumn = 11            'søgekolonne
iLoop = WorksheetFunction.CountIf(Columns(scolumn), svalue)
Set rNa = Cells(1, scolumn)
Set rX = Columns(scolumn).Find(What:=searchvalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)

For i = 1 To iLoop
  Set rNa = Columns(scolumn).Find(What:=svalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)
  Set rX = Union(rNa, rX)
Next i
rX.EntireRow.Hidden = True
End Sub


Den skjuler alle de rækker hvor der står 0 i kolonne 11. Men lige pludselig virker det ikke. Jeg har enten 1(vis række) eller 0(skjul række) stående i kolonne K. Er der fejl i ovenstående ?

Rastaman