make these changes

dim (v(4) as integer
For i = 1 To 4
v(i) = Cells(row, FirstNumberColumn + i - 1)
next i



add
for i = 2 to 4
if v(i) - v(i-1) = 1 then concsecutive = consecutive + 1
next

--
duan
-----------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...fo&userid=1162
View this thread: http://www.excelforum.com/showthread.php?threadid=26587