Hi,

Having a mental block or a breakdown not sure which!

In the following Criteria1 = "2005". What I need it to do is for it to be
the same as "Sheet1!B10" and get year from there. Can't seam to get it to
work. Where am I going wrong?



With
Worksheets("Selected_Agency_Details").Range("A1"). CurrentRegion
.AutoFilter Field:=9, Criteria1:="2005"
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Selected_Agency_Year").Cells(1, 1)
.AutoFilter
End With


Thanks for help.

Trev B

With Worksheets("Selected_Agency_Details").Range("A1"). CurrentRegion
.AutoFilter Field:=9, Criteria1:=Worksheets("Sheet1").Range("B10")
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Selected_Agency_Year").Cells(1, 1)
.AutoFilter
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Trever B" wrote in message
...
Hi,

Having a mental block or a breakdown not sure which!

In the following Criteria1 = "2005". What I need it to do is for it to be
the same as "Sheet1!B10" and get year from there. Can't seam to get it
to
work. Where am I going wrong?



With
Worksheets("Selected_Agency_Details").Range("A1"). CurrentRegion
.AutoFilter Field:=9, Criteria1:="2005"
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Selected_Agency_Year").Cells(1, 1)
.AutoFilter
End With


Thanks for help.

Trev B