Hi David,

Set the range as below or please look into the word "Specialcells" i
the VBA help.


Code
-------------------

Set CellsToBeChecked = Range(Range("B1"), Range("B65536").End(xlUp))

-------------------


--
Message posted from http://www.ExcelForum.com