HI JOhn

I m just starting out on this stuff so Im may be missing a clue or two and
want to understand but I dont undstand your posted code as it seems to have
nothing to do with the stated goal of filling A6 through A 60 ?


Best n10



"JohnS" wrote in message
...
What kind of loop do I need for filling A6 till A60 and then go to D6 and
filling till D60. My code is:
Sub Nummeren()
Dim lStart As Long
Dim lStop As Long
Dim i As Integer
Dim lTeller As Long
lStart = Range("J1").Value
lStop = Range("K1").Value
i = 6

For lTeller = lStart To lStop Step 10
Cells(i, 2).Value = lTeller
i = i + 1
Next

End Sub
With this code I want to fill the column B6 till B60, then jump to D6 till
D60. etc.
The teller stops when it is reaching the number mentioned in lstop.
J1 = 38400
K1 = 38800

Who can help?
John


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.771 / Virus Database: 518 - Release Date: 28/09/2004