XL97 VBA Delete Blank Rows Help!

[vaneagle]

Hi,

I have the following code. It is not deleting blank rows.ie.. nothing at all in the cell... what do I need to change ??

Sub DeleteEmptyRows()
    LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountA(Rows(r)) = 0 _
          Then Rows(r).Delete
    Next r
End Sub

Thanks in advance...

 

[chandlm]

Vaneagle,

Are you sure that there is nothing at all in the undeleted blank rows.

I have tried the macro myself using xl97 and had no problems at all until I inserted a value into a cell somewhere along the row.

Might be worth checking this.

cheers,

Matt