Sub Macro1()
Dim C As Range
For Each sh In Sheets
Application.FindFormat.Font.ColorIndex = 33
sh.UsedRange.Replace What:="", Replacement:="0", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
Next sh
End Sub