Info

The following code goes down the data in Column A and where it finds an empty cell, colors in the first four cells for that row (see Figure 3.6):

End(xlUp).Row

LastRow = Range("A65536" For i = 1 To LastRow

If IsEmpty(Cells(i, 1)) Then Cells(i, 1).Resize(1, 4) End If Next i

Interior.ColorIndex = 1

Figure 3.6

Colored rows separating data.

ÄK

fi•

0 0

Post a comment