Hi Gordon,

Try:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range

Set WB = Workbooks("YourBook.xls") '<<=== CHANGE
Set SH = WB.Sheets("Sheet1") '<<=== CHANGE

On Error Resume Next
Set Rng = SH.AutoFilter.Range
Set Rng = Rng.Offset(1).Resize(Rng.Rows.Count - 1)
Set Rng = Rng.SpecialCells(xlVisible)
On Error GoTo 0

If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
End Sub
'<<=============

You could also perform the operation manually:

Select cells to be deleted
F5 | Special | Visibile cells
Right-click | Delete | Entire row


---
Regards,
Norman



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

I have 3000 records. I want to delete 300 rows that share an auto filtered
value. The problem of course is that when I highlight the block to delete,
it
deletes the rows that have't been filtered. Is there a way round this?

Thanks

Gordon...