Filter in a secondary workbook

[Aflatoon]

You're also missing a colon in the argument:

With DetailData.Sheets("Trans").Range("A5").AutoFilter field:=1, Criteria1:=ACKCode  
End With