Hi Alice,
Try this (initially on a copy of your data as the results cannot be undone if they're not as expected):
Option Explicit
Sub RemoveBlankRows()
Dim varMySheet As Variant
Dim lngLastRow As Long
Dim lngMyRow As Long
Dim xlnCalcMethod As XlCalculation
With Application
.ScreenUpdating = False
xlnCalcMethod = .Calculation
.Calculation = xlCalculationManual
End With
For Each varMySheet In Array("Sheet1", "Sheet2", "Sheet3")
lngLastRow = Sheets(varMySheet).Range("A:E").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For lngMyRow = lngLastRow To 2 Step -1
If Len(Sheets(varMySheet).Range("A" & lngMyRow)) = 0 Then
Sheets(varMySheet).Range("A" & lngMyRow).EntireRow.Delete
End If
Next lngMyRow
Next varMySheet
With Application
.ScreenUpdating = True
.Calculation = xlnCalcMethod
End With
End Sub
HTH
Robert
Bookmarks