Find & Replace in Formulas?

[tinfanide]

I'd like to find and replace parts of each formula on a spreadsheet.

"Range.Find ... LookIn:=xlFormulas" does the job of Find, but not the job of Replace. However, "Range.Replace" does not look in a formula, just cell values.



Is there any fixed function doing the job? Any help is appreciated.

[macropod]

Having found the cell, simply use the Replace method to revise the formula. For example:

Dim Rng As Range
With ActiveSheet
  Set Rng = .Find ...
  Rng.Formula = Replace(Rng.Formula, "FindString", "ReplaceString")
End With