VBA Inputbox Find and Replace Help

[Jambi46n2]

I am trying to conduct an automated Find and Replace with VBA Inputbox to simply replace this:

07 July 2019\SpeeDee Royalty Calculation\07.27\Sales Reports\[07.27.2019 Nexgen SpeeDee Report.xlsx]rptCustomMonthlySalesOverview'!$A$4:$I$102,5,FALSE)

To This:

08 August 2019\SpeeDee Royalty Calculation\08.03\Sales Reports\[08.03.2019 Nexgen SpeeDee Report.xlsx]rptCustomMonthlySalesOverview'!$A$4:$I$102,5,FALSE)

The text in Blue is being replaced correctly, however text in Red is not being replaced.

The code below runs without any errors.

Is there something I'm missing?

Thanks in advance.

    'Inputbox to Find and Replace
    Dim x As String, y As String, m As String, nm As String
    
        m = VBA.inputbox("Enter Month to Find. Example: 07 July 2019", "Replace What")
        nm = VBA.inputbox("Enter Month to Replace. Example: 08 August 2019 ", "Replace With")
        
        x = VBA.inputbox("Enter Date to Find. Example: 07.27", "Replace What")
        y = VBA.inputbox("Enter Date to Replace. Example: 08.03 ", "Replace With")
        
   On Error Resume Next
                Selection.Replace What:=m, Replacement:=nm
                Selection.Replace What:=x, Replacement:=y
            On Error GoTo 0

 

[JoeMo]

Your code works fine for me.

 

[Jambi46n2]

Your code works fine for me.

That is both a relief and concerning at the same time! haha..

Could it be something with my settings? 07.27 does not get replaced with 08.03 when I run it.

 

[JoeMo]

That is both a relief and concerning at the same time! haha..

Could it be something with my settings? 07.27 does not get replaced with 08.03 when I run it.

Don't know since I can't reproduce the problem.
Perhaps you are entering the 07.27 with an extra space? Try putting a msgbox after the Inputbox that returns Len(x).

 

[Jambi46n2]

Don't know since I can't reproduce the problem.
Perhaps you are entering the 07.27 with an extra space? Try putting a msgbox after the Inputbox that returns Len(x).

I was able to figure it out.. Since I am doing a find and replace to a formula that references a linked workbook by adding:
Application.Calculation = xlManual
Application.EnableEvents = False
Application.DisplayAlerts = False

Before the find and replace takes place, and returning it to True when finished everything worked properly.

Thanks for letting me know the code was working!