filtering (all) by value

[nader]

dear Gary
all dears
I applied your macro and it work well:
Selection.AutoFilter Field:=6, _
Criteria1:=">=" & Range("Sheet2!A1").Value, _
Operator:=xlAnd, _
Criteria2:="<=" & Range("Sheet2!A2").Value

I realy appreciate your help. Now I need to filter (all) by putting a value
in specified cell.
thanks