find a cell, jump to next roll and clear all cells
 

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!