Sub ccc()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.Cells
If Left(cell.Formula, 1) = "=" Then
cell.Formula = Replace(cell.Formula, "=", "=TRIM(CLEAN(") & "))"
End If
Next

End Sub

"SANDIND" wrote:

Hi, I have more than 1000 formulaes in one sheet and to all those formulaes I
want to add Trim and Clean function. Is there anyways to add these two
functions to all the formulaes.

Also if there is any option to use a VB code that would trim and clean all
the selected data in spreadshet , this way i could avoid adding those to
formulaes already in sheet.

Thanks for help.
--
SS