Steven

Public Sub DeleteRowOnCell()
''delete any row that has a blank in selected column(s)
Set coltocheck = Application.InputBox(prompt:= _
"Select A Column", Type:=8)
On Error Resume Next
coltocheck.SpecialCells(xlCellTypeBlanks).EntireRo w.Delete
End Sub

Non-programming method to delete blank rows..........

Select a column. EditGo ToSpecialBlanksOK. EditDeleteEntire Row.

Gord Dibben Excel MVP - XL97 SR2 & XL2002

On 25 Jul 2003 16:25:59 -0700, (Steven R. Berke)
wrote:

I have 5 sections of row of information consisting of approximately 50
securities. Between each of these sections are approximately 25 rows
which contain no material in any of the columns of any of the 25 rows.
I need a macro that will delete the blank rows between each of these
segments without deleting any of the rows containing data. For point
of information the rows with the data covers 5 columns.