Macro to Hilight Blank Cells

[Jay3]

Hi All,

I need a macro to do the following.

It starts in column D and I want to check the cell in column C; if column C contains data of any kind then highlight D yellow.

It needs to keep going on a loop until it gets to the last cell in column C that contains data.

Can anyone help?
Thanks
Jay3

P.S. My last post was resolved so thanks to everyone who helped out. Can't actually find my post to let everyone know though.

[Dosnox]

Hi Jay

How about using this code as Macro

Sub FillBlank()
Dim myrange As Range
Dim cell As Object
Dim Lastrow As Long
Lastrow = Range("C1048576").End(xlUp).Row
Set myrange = Range("A1:A" & Lastrow)
For Each cell In myrange
    If cell.Value <> "" Then
        cell.Offset(0, 1).Interior.ColorIndex = 6
     End If
Next cell
End Sub

Depending on what excel you have change C1048576 in the macro to the very last cell.

Hope it helps

[Jay3]

Thanks, I'll try it out.

[davesweep]

Does this work for you?

Sub a()
Dim rC As Range, rCell As Range

Set rC = Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))

For Each rCell In rC
If rCell.Value <> "" Then rCell.Offset(0, 1).Interior.ColorIndex = 6
Next rCell

End Sub