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