Всем привет!  
Подскажите, как можно инрементировать дату на VBA  
что было так:  
 
         янв.12    фев.12   мар.12  и до значения указанного в ячейке(допустим 1 год)  
 
Я делаю так  
 
Dim r1 As Range  
Dim dt As Date  
Dim i As Integer  
 
Set r1 = Range("A1")  
r1.NumberFormat = "mmm-yy"  
 
dt = #1/1/2012#  
 
for i = 1 to (сколько задано лет)  
r1.Select  
r1.FormulaR1C1 = dt  
Set r1 = r1.Offset(0, 1)  
next  
 
Получается так:  
создается именно столько сколько надо ячеек, но везде пишется янв.12  
почему не инкрементируется дата?!  
 
 
AutoFill не поможет, т.к. не понятно до какой ячейки автофилить.  
Если мой способ вообще не должен работать, то подскажите, как вообще можно решить мою задачу.  
 
Дано:  
Начал мес    март - значения меняются  
Начал год    2012 - значения меняются  
Срок проекта 2    - значения меняются  
 
Ннадо:  
 
Мар.12   Апр.12 .... Фев.14