auto fill help needed

[gotzoom]

I need to generate a sequential number list, but I need it to skip every 13th number. I am starting with # 2343

[Tom Ogilvy]

k = 1
for i = 2343 to 5000
if (i-2342) mod 13 <> 0 then
cells(k,1) = i
k = k + 1
End If
Next

--
Regards,
Tom Ogilvy

"gotzoom" <[email protected]> wrote in
message news:[email protected]...
>
> I need to generate a sequential number list, but I need it to skip every
> 13th number. I am starting with # 2343
>
>
> --
> gotzoom
> ------------------------------------------------------------------------
> gotzoom's Profile:
http://www.excelforum.com/member.php...o&userid=30655
> View this thread: http://www.excelforum.com/showthread...hreadid=503179
>