оптимизировать надо
не каждый раз ячейку на чтение-запись мучать, а промежуточные замены делать отдельной переменной.
Sub ReplaceAnything()
Dim t As Range
For Each t In ActiveSheet.UsedRange
c = t
с = Replace(с, " ", "_")
c = Replace(c, "yes", "no")
t = c
Next
End Sub
или
c = t.formula
...
t.formula = c
