Sub hfm_killer()
Dim r As Range, s As String
For Each r In ActiveSheet.UsedRange
If r.HasFormula Then
s = r.Formula
If InStr(UCase(s), "HFM") Then
r.Value = r.Value
End If
End If
Next
End Sub
--
Gary's Student


"Gert" wrote:

I try to find in a worksheet all formulas which contains the carracters
"hfm" or "HFM".
The second step is to replace all this formulas by their values.

Does anyone know how to search for a small part of a formula ???

thanks in advance