genracela
07-02-2010, 01:17 AM
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!
Sub Filter()
With ActiveSheet
Range("A1:H999000").AutoFilter Field:=4, Criteria1:="-100"
Columns("A").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
The line:
Range("A1:H999000").AutoFilter Field:=4, Criteria1:="-100"
is okay, but I'm having problem with the second line.
Thanks!
Sub Filter()
With ActiveSheet
Range("A1:H999000").AutoFilter Field:=4, Criteria1:="-100"
Columns("A").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub