On Monday, April 2, 2012 6:33:42 AM UTC-5, Keith Willis wrote:
that did it, thanks a million

That may have taken awhile. Could have been faster with

With Worksheets("Formulas").usedrange.specialcells(xlfo rmulas)
..Value = .Value
End With