---

Sub IncYear()
    Dim r As Range
    Dim re As Object, m As Object
    
    Set r = Range("A1")
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "(\d{4})-(\d{4})"
    
    If re.Test(r.Value) Then
        Set m = re.Execute(r.Value)(0)
        r.Value = Replace(r.Value, m.Value, _
            CInt(m.SubMatches(0)) + 1 & "-" & CInt(m.SubMatches(1)) + 1)
    End If
End Sub