This is good if you need to quickly replace text in a workbook for a report

VBA - Find and Replace things in worksheet

Sub FnR(sWhat As String, sReplacment As String, ws As Worksheet)
  ws.UsedRange.Replace What:=sWhat, Replacement:=sReplacment, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
 
  ws.PageSetup.CenterHeader = Replace(ws.PageSetup.CenterHeader, sWhat, sReplacment)
  ws.PageSetup.LeftHeader = Replace(ws.PageSetup.LeftHeader, sWhat, sReplacment)
  ws.PageSetup.RightHeader = Replace(ws.PageSetup.RightHeader, sWhat, sReplacment)
End Sub