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