Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

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