Sub convertformulas()
Dim c As Range
For Each c In Range("p3:p8").SpecialCells(xlCellTypeFormulas)
If c 0 Then c.Value = c.Value
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Michael Lanier" wrote in message
...
I need a macro that will convert a cell's formula to reflect its
formula result only based on the following:

Range is A10:C200
Only when formula's result 0
Execute upon closing the file

Thanks for any help you can provide.

Michael