Find-Replace formulas in Excel chart

FindReplaceInChart.bas

Sub FindReplaceinChart()
    Dim mySrs As Series
    Dim iPts As Long
    Dim iSrs As Long
    Dim aLAbel As DataLabel
    Dim sFormula As String
    If ActiveChart Is Nothing Then
        MsgBox "Select a chart and try again.", vbExclamation, "No Chart Selected"
    Else
        Dim old_ As String, new_ As String
        old_ = Application.InputBox("Replace:", "Find-Replace in Series")
        If Trim(old_ & vbNullString) = vbNullString Or Trim(old_ & vbNullString) = False Then GoTo ExitSub
        new_ = Application.InputBox("Replace """ & old_ & """ with:", "Find-Replace in Series")
        If Trim(new_ & vbNullString) = vbNullString Or Trim(new_ & vbNullString) = False Then GoTo ExitSub
        For Each mySrs In ActiveChart.SeriesCollection
            sFormula = WorksheetFunction.Substitute(mySrs.Formula, old_, new_)
            mySrs.Formula = sFormula
        Next
    End If

ExitSub:
End Sub