Colour 0 separated by vertical bar in any position

[Kishan]

Using Excel 2000
Hi,

I need VBA to get coloured 0 as shown in the example below

[TABLE="width: 207"]
<colgroup><col></colgroup><tbody>[TR]
[TD]0 | 0 | 0 | 1 | 1 | 1 | 1[/TD]
[/TR]
[TR]
[TD]0 | 0 | 1 | 1 | 1 | 0 | 1[/TD]
[/TR]
[TR]
[TD]0 | 0 | 1 | 1 | 1 | 1 | 0[/TD]
[/TR]
[TR]
[TD]0 | 0 | 1 | 0 | 1 | 1 | 0[/TD]
[/TR]
[TR]
[TD]0 | 0 | 1 | 1 | 1 | 1 | 0[/TD]
[/TR]
[TR]
[TD]0 | 0 | 1 | 1 | 1 | 0 | 1[/TD]
[/TR]
[TR]
[TD]0 | 0 | 1 | 1 | 1 | 1 | 0[/TD]
[/TR]
[TR]
[TD]0 | 1 | 0 | 1 | 1 | 0 | 1[/TD]
[/TR]
[TR]
[TD]0 | 1 | 0 | 1 | 1 | 1 | 0[/TD]
[/TR]
[TR]
[TD]0 | 1 | 1 | 0 | 0 | 0 | 0[/TD]
[/TR]
[TR]
[TD]0 | 1 | 1 | 0 | 1 | 0 | 0[/TD]
[/TR]
[TR]
[TD]0 | 1 | 1 | 0 | 1 | 1 | 1[/TD]
[/TR]
[TR]
[TD]0 | 1 | 1 | 1 | 0 | 1 | 1[/TD]
[/TR]
</tbody>[/TABLE]


Thank you in advance

Regards,
Kishan

 

[Fluff]

How about

Sub Kishan()
   Dim Cl As Range
   Dim i As Long
   
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      For i = 1 To Len(Cl) Step 2
         If Mid(Cl, i, 1) = "0" Then Cl.Characters(i, 1).Font.Color = vbRed
      Next i
   Next Cl
End Sub

 

[Kishan]

How about

Sub Kishan()
   Dim Cl As Range
   Dim i As Long
   
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      For i = 1 To Len(Cl) Step 2
         If Mid(Cl, i, 1) = "0" Then Cl.Characters(i, 1).Font.Color = vbRed
      Next i
   Next Cl
End Sub

Fluff, the code worked as required!

Thank you for your help

Kind Regards,
Kishan

 

[Fluff]

You're welcome & thanks for the feedback