---

Sub IncYear()
    Dim r As Range, a
    For Each r In Selection
        a = Split(r.Value, "-")
        If UBound(a) >= 1 Then r.Value = Left(r.Value, InStr(r.Value, a(0)) - 1) & CInt(a(0)) + 1 & "-" & CInt(a(1)) + 1 & Mid(r.Value, InStr(r.Value, a(1)) + Len(a(1)))
    Next
End Sub