hi all dears

i need your helps
I use following mocro:

Sheets("Sheet1").Select
Selection.AutoFilter Field:=6, _
Criteria1:="=" & Range("Sheet2!A1").Value

I need to filter(All) by putting a value in cell ("Sheet2!A1").

Thanks.