Don't even bother looking for the cells containing formulas.
Copy + PasteSpecial the whole sheet(s)...
--
Regards,
Luc.

"Festina Lente"


"Todd" wrote:

This doesn't work yet. But its what I am trying to do.

Thanks


Sub RemoveFormulas()
Selection.SpecialCells(xlFormulas).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveSheet.UsedRange
End Sub

"Todd" wrote:

Hi.

Is there a macro way to remove all the formulas in an actvive worksheet? I
keep making reports (40-50 at a time) and then copy/paste values for each
worksheet individually to store them.

Thanks,


Todd