Before your line:
Selection.SpecialCells(xlCellTypeVisible).Delete
enter
selection.offset(1, 0).resize(selection.rows.count - 1, 1).select
FILE-SAVE before trying...
HTH


"Nirmal Singh" wrote in
message ...
On Fri, 4 Feb 2005 08:03:58 -0500, "Tom Ogilvy" wrote:


with activesheet.autofilter.range
.offset(1,0).resize(.rows.count -1).EntireRow.Delete
End With


Thanks guys. Both of those suggestions work fine.

Nirmal