Convert Excel Formulas That Contain Specific Function In To Value

[snb]

So wouldn't this suffice in that case?

Sub M_snb()
    on error resume next
    c00=inputbox("formula")

    for each sh in sheets
      for each cl in sh.Cells.SpecialCells(-4123)
        if instr(cl.formula,c00) then .Value = .Value
      next
    next
End Sub