A macro for converting formulas to formula results only

[Michael Lanier]

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 Phillips]

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

If cell.Value2 > 0 Then

cell.Value2 = cell.Value2
End If
Next cell

 

[Don Guillett]

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

 

[Michael Lanier]

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