I want copy the filtered data to last sheet "CasCrd" from
several worksheets if the second and third letters in
each sheet name is say for eg: 02 other wise move to next
sheet and loop

thanks for your reply





-----Original Message-----
hi,
i see the systax is a little different that i would do
it.
what are you trying to copy?

-----Original Message-----
Hi All,

I am having the following code which stpos after
copying
data from the first instance of the sheet. How cud i
fix
this problem?


Sub CurMonth()
Sheets("CasCrd").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Interface").Select

For Each Sh In Sheets
Sh.Select
If Mid(Sh.Name, 2, 2) = Right(Sheets("Interface").[C2],
2) Then

Range("A1").Select
Selection.AutoFilter Field:=4, Criteria1:="N"
Selection.End(xlDown).Select
Range(Selection, Range("AP1").Offset(1, 0)).Copy _
Destination:=Sheets("CasCrd").Range("A65536").End
(xlUp).Offset(1, 0)
Sh.AutoFilterMode = False
Range("A1").Select
End If
Next


End Sub

.

.