Sub test_increments()
For each cell in
range(range("A1").offset(1,0),range("A65536").end( xlup))
if cell.value < cell.offset(-1,0).value + 1 then
'highlight cell
end if
next cell
end sub

wrote in message
ps.com...
Hello,

Can someone please provide some code that will look at each cell in a
column to ascertain if the number in each cell is incrementing by 1. I
would also like it to highlite the first cell in every non
incrementing sequence. Hope this is clear ;-)

Chalky