Sub cleanout()
For Each ws In Sheets
ws.Activate
Set rr = Intersect(ActiveSheet.UsedRange, Range("D:H"))
If Not rr Is Nothing Then
For Each r In rr
If r.Value 0 Then
r.Value = 0
End If
Next
End If
Next
End Sub

--
Gary''s Student - gsnu200728