Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Kill_Blank_Rows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then
ActiveSheet.UsedRange.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Mike

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB