You can use the Range.Offset function to move to the next cell.

For instance,
Set r = Range("A1")
Set r = r.offset(0,1)

Use a VBA for loop to control your search.


--
C01d
------------------------------------------------------------------------
C01d's Profile: http://www.excelforum.com/member.php...o&userid=34422
View this thread: http://www.excelforum.com/showthread...hreadid=546318