Lai,
Do u mean this?
Sub RemoveRows()
Cells.Select
Range("A2").Activate
Selection.AutoFilter Field:=1, Criteria1:="<1", Operator:=xlAnd
Rows("2:65536").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
Selection.AutoFilter
End Sub
Greetz,
@3
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!