Using the ISEMPTY Function to Check Whether a Cell Is Empty
Sub isemptyDemo()
LastRow = cells(Rows.count, 1).End(xlUp).row
For i = 1 To LastRow
If isempty(cells(i, 1)) Then
cells(i, 1).resize(1, 4).Interior.ColorIndex = 1
End If
Next i
End Sub
Related examples in the same category