And if you need a macro:

Option Explicit
Sub testme()
On Error Resume Next
ActiveSheet.Range("a:A").Cells.SpecialCells(xlCell TypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub


Dave Peterson wrote:

Select column A
Edit|goto|special
check Blanks

Edit|Delete|entire row.

Richard wrote:

Using: MS OS XP
Excel 2003

I have tried and need some help for some VBA code in a macro.

I have a table of about 400 rows. The rows may vary but not be over 400. I
need to check the cells in column A. If the cell in column A is empty then I
want to delete the entire row and go and check the next cell in column A etc.

The rows may vary but they shouldnt exceed 400.

--
Richard

--

Dave Peterson

--

Dave Peterson