Public Sub test()
For Each cell In ActiveSheet.UsedRange
If cell.Value < 0 Then
With cell
.Value = 0
.NumberFormat = "0.00"
End With
End If
Next cell
End Sub

On Thu, 25 Oct 2007 13:57:01 -0700, Mark J
wrote:

I have the following script in an excel spreadsheet;

Dim i As Integer
Public Sub test()
For i = 8 To 31
If Cells(i, 12) < 0 Then
Cells(i, 12) = "0.00"
End If
Next i
End Sub

It checks a column for values that are negative and changes them to "0.00",
is there a way i can check the whole spreadsheet for negative numbers and
change them to "0.00"