Stuart

one way:

Sub FormulaeToValues2()
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With
End Sub

Regards

Trevor


"Stuart" wrote in message
...
Is there a simple way to clear formulae from the activesheet, leaving
just the values in the cells ..... or do I have to do this cell by cell
eg:
setValue = ActiveCell.Value
ActiveCell = setValue

Regards.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.674 / Virus Database: 436 - Release Date: 02/05/2004