EntireRowBlank? Just cant make it work....

[pedie]

Current code which does not work is as below

Please advice.
Thanks in advance.

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub EntireRowBlank()
Dim lr As Long
Dim i As Range
lr = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
       
For Each i In Range("A1:A" & lr)
 If IsBlank(i.EntireRow) Then
  MsgBox "Yes"
 End If
Next i
End Sub

 

[Jonmo1]

Well, like I said, this indicates that some of your blanks are not really blank...

Try this to flag rows that are NOT blank...

Sub IreRowBlank()
Dim lr As Long
Dim i As Long
lr = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 
For i = lr To 1 Step -1
If Application.CountBlank(Cells(i, "A").EntireRow) = Columns.Count Then
 Cells(i, "A").EntireRow.Delete
Else
 With Cells(i, Columns.Count).End(xlToLeft)
    .Offset(0,1).Value = "The Cell " & .Address & " Is Not Blank"
  End With
End If
Next i
End Sub

 

[pedie]

Jon, works perfect now...
Really appriciate your help!

Thanks again guys!
Good night or day!

 

[Jonmo1]

Glad to help out.