Hi,

Try this to speed up Colo's Code with array.

Sub Test_colo()
Dim i As Long, j As Long, varr()
i = 0
For Each c In Range([A2], [A65536].End(xlUp))
If c.Offset(1).Value = "" Then Exit For
j = c.Value
Do Until j = c.Offset(1).Value - 1
j = j + 1
ReDim Preserve varr(i)
varr(i) = j
i = i + 1
Loop
Next
[b2].Resize(UBound(varr, 1) + 1, 1) = Application.Transpose(varr)
End Sub


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!