Hi Ramon,

Try:

'=============
Public Sub Tester()
On Error Resume Next
Columns(1).SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
'<<=============


---
Regards,
Norman



"THE_RAMONES" wrote in message
...
I have a macro that combines multiple sheets into one. I want to add to
the
macro that once the master file is compiled, delete any row in column "A"
that doesn't have date

Basically

if A1 = 03/28/06 keep row
if A1 = null,text,etc delete row.

Thanks in advanced...

Ramon