Hi

I want to select rows from a range (variable) of rows. The criteria is tht the value in the 'Complaints' col shud be "OEPN". Then i want to paste these rows in sheet 3 of the same workbook.

Please help!
ashu

you should try something like this.

Private Sub FilterData()

Worksheets("Data").Range("A1").AutoFilter Field:=6, Criteria1:="Open"
Worksheets("Data").Range("A1").CurrentRegion.Copy Destination:=Worksheets("Filtered").Range("A1")
Worksheets("Filtered").Columns.AutoFit

End Sub

Thanks! It worked. :)