it works if I put it like this

Set cell = rgSearch.FindNext(After:=Cells(cell.Row + 1, 2))