Dim c As Range

For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
c.FormulaArray = c.Formula
End If
Next c


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Steved" wrote in message
...
Hello From Steved

Please is their away off highlighting a worksheet and then changing all
the
formulas to anarray {} please as there are abot 70 or so do to and I'm
hoping
to avoid doing it Manually.

Thankyou.