Hi RB Smissaert,

Thanxs.. It works so well ;>


RB Smissaert wrote:
>You want something like this:
>
>Sub Generate_Numbers()
>
> Dim CountRow As Long
> Dim cLastRow As Long
> Dim i As Double
>
> cLastRow = 100
>
> For CountRow = 2 To cLastRow
> Worksheets("Data2").Cells(CountRow, 1).Value = i
> i = i + 500000
> Next CountRow
>
>End Sub
>
>RBS
>
>> hello there,
>>
>[quoted text clipped - 31 lines]
>>
>> tq

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200606/1