Macro to Find and Replace Multiple Values Across Multiple Sheets

hi this will do:

just replace the find and replace strings:

Sub findreplace()

Dim ws As Worksheet
Dim fList As Variant
Dim replacelist As Variant
Dim aa As Long


fList = Array("Find1", "Find2", "Find3", "Find4")
replacelist = Array("Replace1", "Replace2", "Replace3", "Replace4")

  For aa = LBound(fList) To UBound(fList)
      For Each ws In ActiveWorkbook.Worksheets
        ws.Cells.Replace What:=fList(aa), Replacement:=replacelist(aa), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next ws
  
  Next aa

End Sub

or, you can use input box:

Sub test()

Dim ws As Worksheet
Dim fList As Variant
Dim replacelist As Variant
Dim aa As Long

Dim mfile As Variant
Dim replaceS As Variant

mfile = InputBox("Place find text")

replaceS = InputBox("Place replace text")


fList = Array(mfile)
replacelist = Array(replaceS)

  For aa = LBound(fList) To UBound(fList)
      For Each ws In ActiveWorkbook.Worksheets
        ws.Cells.Replace What:=fList(aa), Replacement:=replacelist(aa), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next ws
  
  Next aa


End Sub

Perhaps

Sub FindRep()
    Dim e, ws As Worksheet
    For Each ws In Sheets(Array("Jan", "Feb", "March", "April"))
        For Each e In Array("Ahead", "On time", "Behind")
            ws.Cells.Replace e, "Cancelled", 1
        Next
    Next
End Sub

Then you can just change last parameter of Replace method 1 to 2.

how the word "Cancelled" be red;
Thank you

I don't understand what you are trying to do now.

If you upload a workbook with before/after, it will help.

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.