nDate = DateValue(2006,1,1)

With ActiveSheet
.Range("A1").Value = nDate
.Range("A10").Value = nDate + 7
.Range("A20").Value = nDate + 14
.Range("A30").Value = nDate + 21
End With

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"FLYNNE" wrote in message
...
I wish to use VBA to automatically date selected cells.The dates are in
ascending order and are separated by a fixed number of days.

For example :-
Date cells A1 , A10 , A20 , A30 with 1 Jan 2006 , 8 Jan 2006 , 15 Jan
2006
, 22 Jan 2006.

My experience in VBA is almost non-existent in this area and I would
appreciate some help on this matter.

Any Suggestions please ?
--
FLYNNE