Hi Gordon,

If no other error present, the you can use (save before testing)
Columns("B:B").SpecialCells(xlCellTypeFormulas,
xlErrors).EntireRow.Delete
Else loop, delete the N/A then
Columns("B:B").SpecialCells(xlblanks).EntireRow.De lete
Regards
JY

"Gordon" wrote in message
...
Hi...

I have 3000 records. In column B, some cells are reading #N/A. I need some
code that will delete the rows where the #N/A occours and leave no gaps.
So
by the time I'm through I have say 2800 records with no gaps in the rows?
Is
this possible?

Thanks

Gordon