Macro Question

[Guest]

I'm using this macro:

Range("A2").Select
Selection.Copy
Sheets("TMS").Select
Range("Y2").Select
Selection.AutoFilter Field:=23, Criteria1:="=BOX074", Operator:=xlAnd
Range("F1").Select
Sheets("CheckNamesSent").Select

I am trying to have the "A2" copy inserted into the Criteria1:

Is it possible ?

Thank you in advance.

 

[Guest]

Don't use Copy

Dim s as String
..
..
..
s="=" & Range("A2").Value
..
..
..
Selection.AutoFilter Field:=23, Criteria1:= s, Operator:=xlAnd