Macro To Update < 1 to 0

I need a macro that will if the Value of the cell is < 1 update that cell to 0. I tried using the below, and it didn't work

ub ResetAll()
Dim myRng As Range, c As Range
Set myRng = Sheets("Sheet1").Range("D73:D83")
For Each c In myRng
If c.Value > 1 AND c.Value < 0 Then
c.Value = 0
End If
Next
End Sub

hi
it's non-sens

If c.Value > 1 AND c.Value < 0 Then

cell value could not be bigger then 1 and lower then 0 in the same time

try to use only one of those conditions
i.e.

Sub ResetAll()
Dim myRng As Range, c As Range
Set myRng = Sheets("Sheet1").Range("D73:D83")
For Each c In myRng
  If c.Value < 1 Then
    c.Value = 0
  End If
Next
End Sub

attach some sample workbook.
This code should not to change other cells - only those lower from 1

1 % is equal = 1/100 so maybe you should have following condition?

  If c.Value < 0.01 Then

I think you asked for it - try to rebuild your question, because for now I don't know what are you realy expecting

The last code posted should do what you want as 1% is 0.01. If it is not, then please post a workbook.

The revised code works fine. The one issue you may have is that you are not displaying decimals, so in one instance your rounded values look like 1% but are actually 0.7% so the macro clears it. If you don't want that, then use:

If Application.Round(c.Value,2) < 0.01 Then