VBA troubleshooting - Excel 2003

Nedenstående kode giver fejl:

Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer
Dim rX As Range
svalue = "1"          'søgeværdi
scolumn = 12            '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

Fejlen opstår tredje nederste linie:  "Set rX = Union(rNa, rX)"

virkede udemærket i XP...