Как в датах увеличить n-ый год на 1? - VB

Формулировка задачи:

имеются некоторые данные, при нажатии кнопки в тех местах, где были проставлены даты, к каждому году необходимо прибавить 1 (т.е. если был 2010, то его сделать 2011)

Sub smena_goda()
Dim i As Integer
i = 5: k = 5
While Trim(Cells(i, 2).Value) <> ""
Year(Cells(k, 5).Value) = Year(Cells(i, 5).Value) + 1
Cells(k, 9).Value = Cells(i, 17).Value
i = i + 1
k = k + 1
Wend
Year(Cells(3, 8).Value) = Year(Cells(3, 8).Value) + 1
Year(Cells(3, 10).Value) = Year(Cells(3, 10).Value) + 1
Year(Cells(3, 12).Value) = Year(Cells(3, 12).Value) + 1
Year(Cells(3, 14).Value) = Year(Cells(3, 14).Value) + 1
Year(Cells(3, 16).Value) = Year(Cells(3, 16).Value) + 1
End Sub

Решение задачи: «Как в датах увеличить n-ый год на 1?»

textual
                            Листинг программы 
                        
                               Dim c As Range
   
   c = DateAdd("yyyy", 1, с)