Hi! duane,

Thanks for helping. A second loop. I learn one more thing.

One thing I don't understand is :
Dim (v(4) as integer

I change it to:
Dim V (1 to 4) As Integer

Is that typing mistake?

Regards,
Michael


duane Wrote:
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

--
Michael16
-----------------------------------------------------------------------
Michael168's Profile: http://www.excelforum.com/member.php...info&userid=60
View this thread: http://www.excelforum.com/showthread.php?threadid=26587

dim v(4) - sorry for the typ

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