IF Range("A" & F)="" then
K = K + 1
else
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",0,IF(RC[1]="""",1,0))"
K = K + 1
end i
--
mudrake
-----------------------------------------------------------------------
mudraker's Profile:
http://www.excelforum.com/member.php...nfo&userid=247
View this thread:
http://www.excelforum.com/showthread.php?threadid=52459