Incrementing dates in Excel VBA

Question

this is my current code:

For z = 3 To 52
    Cells(z, 1) = Cells((z - 1), 3) + 7
Next z      

Where cell z-1 is a date

I want to add 7 days to the previous cell however it's throwing an error, it this the right way to approach this issue or is there a simpler method?

Thank you

Answer 1

Try the DateAdd function, use inside the loop:

Cells(Z, 1) = DateAdd("ww", 1, Cells((Z - 1), 3))

Note: the 1st parameter, is the Interval, set it to "ww", which means weeks.

To read more about this function go to MSDN