vba for next loop

Dim num as integer
sub mac1()
For num = 1 to 50
A = num * 2
cells (1,1) = A
next num
end sub

If i run this code cell cell(1,1) displays 100 i.e 50 * 2 instead of lowest num no i.e 1 * 2 which is equal to 2. Even if i declare A as integer problem persists please help.

Have you tried "stepping" through the range 1 to 50?

No. how to do that ?

It looks like you're replacing the A1 50 times (2, 4, 6, 8, …., 98, 100), and at the end, only the final value (100) is displayed

Example:

Code:

---

Dim num as integer

sub mac1()
    For num = 1 to 50
        A = num * 2
        cells (num,1) = A
    next num
end sub

---

Cross-posted at: http://www.msofficeforums.com/word-v...next-loop.html
Please read VBA Express' policy on Cross-Posting in item 3 of the rules: http://www.vbaexpress.com/forum/faq...._new_faq_item3