Sub remove_blanks()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Range("A" & i).Value = "" Then
Range("A" & i).EntireRow.Delete (xlShiftUp)
end if
Next
End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!