Would it be possible to do "0's" font colour red

[motilulla]

Hello,</SPAN></SPAN>

Not sure can be done "0's" font colour red</SPAN></SPAN>

As per example below

Book1
	A	B	C	D
1
2
3
4
5				1 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 1 | [COLOR=#ff0000]0[/COLOR] | 1 | [COLOR=#ff0000]0 [/COLOR]| 1 | 1 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 1 | [COLOR=#ff0000]0[/COLOR]
6				2 | 1 | 1 | [COLOR=#ff0000]0[/COLOR] | 2 | 1 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 2 | [COLOR=#ff0000]0[/COLOR] | 1 | 1 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR]
7				3 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] |[COLOR=#ff0000] 0 [/COLOR]| 3 | [COLOR=#ff0000]0 [/COLOR]| 1 | [COLOR=#ff0000]0[/COLOR] | 3 | 1 |[COLOR=#ff0000] 0 [/COLOR]|[COLOR=#ff0000] 0 [/COLOR]| 1 | [COLOR=#ff0000]0[/COLOR]
8				4 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0 [/COLOR]| 1 | 4 | 0 | 2 |[COLOR=#ff0000] 0 [/COLOR]| [COLOR=#ff0000]0[/COLOR] | 2 | 1 |[COLOR=#ff0000] 0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR]
9				[COLOR=#ff0000]0[/COLOR] | 1 | [COLOR=#ff0000]0[/COLOR] | 2 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 3 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 3 | 2 | 1 |[COLOR=#ff0000] 0[/COLOR] | [COLOR=#ff0000]0[/COLOR]
10				1 | 2 | 1 | 3 | 1 | 1 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 1 | [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0 [/COLOR]| [COLOR=#ff0000]0[/COLOR] | [COLOR=#ff0000]0[/COLOR] | 1
Sheet1

Thank you all</SPAN></SPAN>

Excel 2000</SPAN></SPAN>
Regards,</SPAN>
Moti</SPAN></SPAN>

 

[JLGWhiz]

Sub t()
Dim i As Long, j As Long
For i = 1 To 2
    For j = 1 To Len(Cells(i, 4))
        If Mid(Cells(i, 4).Value, j, 1) = 0 Then
            Cells(i, 4).Characters(j, 1).Font.ColorIndex = 3
        End If
    Next
Next
End Sub

 

[motilulla]

Sub t()
Dim i As Long, j As Long
For i = 1 To 2
    For j = 1 To Len(Cells(i, 4))
        If Mid(Cells(i, 4).Value, j, 1) = 0 Then
            Cells(i, 4).Characters(j, 1).Font.ColorIndex = 3
        End If
    Next
Next
End Sub

Wow! JLGWhiz, it worked spot on. Thank you so much</SPAN></SPAN>

Wish you a very Happy New Year 2019</SPAN></SPAN>

Kind Regards,</SPAN>
Moti </SPAN></SPAN>

 

[JLGWhiz]

Wow! JLGWhiz, it worked spot on. Thank you so much</SPAN></SPAN>

Wish you a very Happy New Year 2019</SPAN></SPAN>

Kind Regards,</SPAN>
Moti </SPAN></SPAN>

You're welcome,
regards, JLG