VBA multi row highlight issue

This looks promising thanks! Although I'm getting a "Compile error: Loop without Do"

Any thoughts?

That seems to solve the compile error but unfortunately the output isn't right. I'm working just in an excel sheet right now rather than from access just to make it easier to get things working. I put different colors and lowered it to blocks of 10 just to see what's happening. It seems to highlight the first 10 as it should but then it highlights line 4 with colourindex 7? And then nothing else happens.

This is the code as it stands now:



Dim i As Integer

Range("A1:C1").Select

Do Until IsEmpty(ActiveCell.Offset(1, 0))
ActiveCell.Range("A2:C" & 10).Interior.ColorIndex = 15

For i = 0 To 9
If Cells(ActiveCell.Row + i) = "" Then
ActiveCell.Range("A1:C1").Offset(i, 0).Select
Selection.Interior.ColorIndex = 7: Exit Do: End If
Next i
ActiveCell.Range("A1:C1").Offset(10, 0).Select
Selection.Resize(1000, 1).Select
Selection.Interior.ColorIndex = 6

For i = 0 To 9
If Cells(ActiveCell.Row + i) = "" Then
ActiveCell.Range("A1:C1").Offset(i, 0).Select
Selection.Interior.ColorIndex = 12: Exit Do: End If
Next i
ActiveCell.Range("A1:C1").Offset(10, 0).Select
Selection.Resize(10, 1).Select
Selection.Interior.ColorIndex = 16

Loop

I forgot to change that one to 10 as well Still doesn't change the output though

I don't think it likes the first if statement (below) as it highlights in that color no matter if it is filled or not. And it's filled so it shouldn't be highlighting in that color. It's also not looping so must be exiting.

If Cells(ActiveCell.Row + i) = "" Then