Public Sub vev()
Dim i As Integer, j As Integer
i = 1
j = 1
Do While Cells(i, j) ''
Cells(i, j).Interior.ColorIndex = 3
Cells(i, j).Select
Do While Cells(i, j) ''
Cells(i, j).Interior.ColorIndex = 3
Cells(i, j).Select
j = j + 1
Loop
i = i + 1
j = 1
Loop
End Sub