Autofilter'Da içerir "*" komutundaki hata nerede? herşey doğru?

[bistroboy]

öd.[A1].AutoFilter Field:=5, Criteria1:="<>"
öd.[A1].AutoFilter Field:=28, Criteria1:="=*" & ana.Range("A" & i).Value & "*"

Workbooks("a.xls").Activate: Worksheets("veritabani").Select
Range("a1").CurrentRegion.Select
Selection.Copy
ana2.[A1].PasteSpecial xlValues "ANA2 DOSYASINA İÇEREN TÜM DEĞERLER GELMİŞ ...COK GÜZEL!!! "

ana.Range("A" & i).Offset(0, 1).Value = WorksheetFunction.CountIf(ana2.Range("AB2:AB65536"), "=*" & ana.Range("A" & i).Value) & "*"

ANA SAYFASINA ana2 'Deki cok güzel dediğim verileri neden saydırarak getiremiyorum??? buraya da =* koydum???