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

For Each cell In Range("A10:C200")

If cell.Value2 0 Then

cell.Value2 = cell.Value2
End If
Next cell

--

HTH

Bob

"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

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

Bob and Don,

I did something wrong with Bob's so I failed to get it to work but
Don's worked fine. Thank you both for your time.

Michael