Sub changetoval()
Range("B2:B8").Select 'ADJUST RANGE!
For Each cella In Selection
If cella < 0 Then
cella.Value = cella
End If
Next cella
End Sub

Regards,
Stefi


€žcarl€� ezt Ã*rta:

I have a formula in ColB of my worksheet.

The value of the formula will be zero or a positive number.

Is it possible for a macro to change the formula to its value if the value
is not equal to zero ?

Thank you in advance.