Fill Blanks With Zero

Sub BlankstoZero()
Dim c As Range
For Each c In Worksheets(“sheet1”).Range(“A1:A” & Worksheets(“sheet1”).Cells(Rows.Count, “A”).End(xlUp).Row)
If IsEmpty(c) Then
c.Value = 0
End If
Next
End Sub