ciao
penso che e' questo che ti serve
inserire in un modulo e collegare ad un pulsante
Sub IncrementaAnno()
Cells(5, 3) = DateValue(Day(Cells(5, 3)) & "/" & Month(Cells(5, 3)) & "/" & Year(Cells(5, 3).Value) + 1)
End Sub
Ciao da locate
excel 2007 / 13