How to Delete Visible Rows in VBA?

[genracela]

I'm just wondering what's wrong with my code?

The line:
Range("A1:H999000").AutoFilter Field:=4, Criteria1:="-100"
is okay, but I'm having problem with the second line.

Thanks!

[VBA]Sub Filter()
With ActiveSheet
Range("A1:H999000").AutoFilter Field:=4, Criteria1:="-100"
Columns("A").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

End Sub
[/VBA]

[GTO]

Try Range("A:A")

[Bob Phillips]

[vba]

Sub Filter()
Dim rng As Range
Dim LastRow As Long

With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Set rng = .Range("A1:H" & LastRow)
rng.AutoFilter Field:=4, Criteria1:="-100"
Set rng = rng.Columns("A").SpecialCells(xlCellTypeVisible)
If Not rng Is Nothing Then rng.EntireRow.Delete
End With

End Sub
[/vba]

[genracela]

I'm still having trouble with:

Columns("A").SpecialCells(xlCellTypeVisible)

I tried doing it manually though(select rows, then F5 visible cells only), but it gives me this error message(pls see attch image).

[Bob Phillips]

Can you post the workbook?