Hi all,

I'm trying to set up a code - a loop whereby every time the value of cells
(x,3) changes the cell pattern changes alternately from being shaded in grey
and no colour. Not sure how to write it so that it does what i need.

So for example if i had a s/s with

John
John
Jim
Jim
Jim
Fred

It would colour john cells in Grey shading, Jim - no colour shading and Fred
Grey Shading again.

Sheets("Sheet1").Select

x = 3

Do Until Cells(x, 3).Value = ""

If Cells(x, 3).Value = Cells(x - 1, 3).Value and ...... Then

.....
x = x + 1

Else if cells(

Can anyone help?

Thanks.