Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
If IsDate(c) Then c = DateAdd("yyyy", 1, c)
Next
End Sub
Private Sub CommandButton1_Click()
Dim LR As Long
Dim x As Date
LR = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LR
x = Cells(i, "A").Value
Cells(i, "A").Value = DateSerial(Year(x) + 1, Month(x), Day(x))
Next i
End Sub
X = ActiveCell.Value
Do Until ActiveCell.Value > (TodaysDate)
ActiveCell.Value = DateSerial(Year(x) + 5, Month(x), Day(x))
Loop
Sub test()
Do Until ActiveCell > Date
ActiveCell = DateAdd("yyyy", 5, ActiveCell)
Loop
End Sub