Your is only checking column A for shading

from
If IsNumeric(ThisWorkbook.Sheets(1).Cells(rw.Row, 1))

to
if ThisWorkbook.Sheets(1).Cells(rw.Row,1).interior.co lorindex <
xlnone


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=190077

http://www.thecodecage.com/forumz