Sub UpdateRefs()
Dim StrFnd As String, StrRep As String
StrFnd = InputBox("Please input the string to FIND for the replacement.", "Find/Replace")
If StrFnd = "" Then Exit Sub
StrRep = InputBox("Please input the string with which to REPLACE the Find String.", "Find/Replace")
With Application
  .DisplayAlerts = False
  .ScreenUpdating = False
  .Calculation = xlManual
  .ActiveSheet.Cells.Replace What:=StrFnd, Replacement:=StrRep, LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  .Calculation = xlAutomatic
  .DisplayAlerts = True
  .ScreenUpdating = True
End With
End Sub