Please help me change the critiria of filtering :) Thanks

[pedie]

Sub Macro7()
Sheet1.AutoFilter
    ActiveSheet.Range("$A$2:$T$6277").AutoFilter Field:=10, Criteria1:="Wk Data"
    ActiveSheet.Range("$A$2:$T$6277").AutoFilter Field:=4, Operator:= _
        xlFilterValues, [COLOR=blue]Criteria2:=Array(2, "9/22/2010")
[/COLOR]End Sub

Can the blue area be something like Criteria2:= Cell(1).value???

 

[pedie]

Thanks and sorry. Found the answer