one way

Sub addates()
For Each c In Range("e1:e" & Cells(Rows.Count, "e").End(xlUp).Row)
c.Offset(, 1) = DateSerial(Year(c) + 7, Month(c), Day(c))
c.Offset(, 2) = DateSerial(Year(c) + 10, Month(c), Day(c))
Next
End Sub


--
Don Guillett
SalesAid Software

"MKChick" wrote in message
...
I need to be able to add years onto a starting month/year date. For
example,
starting with Jan 90, I would need a column that was 7 years more, then a
column that was 10 years more, etc. I've tried all the suggestions in the
"Help" menu, to no avail. Any help out there???