أنا جربت هذا الكود لكن للأسف يظهر خطأ
ChDir "C:\Documents and Settings\xp\Desktop\aaa"
Workbooks.Open FileName:= _
"C:\Documents and Settings\xp\Desktop\aaa\eds sales.xlsx", _
UpdateLinks:=0
ActiveSheet.Range("$A$3:$AL$1711").AutoFilter Field:=21, Criteria1:= _
"1220101"