Public Function fnAutoFilter(sFile As String)
Dim objExcel As Object
Dim objWB As Object
Dim objSH As Object
If Dir(sFile)<>"" Then
Set objExcel = CreateObject("Excel.Application")
Set objWB = objExcel.WorkBooks.Open(sFile, , False)
With objWB.Sheets(1)
.UsedRange.Cells.AutoFilter
End With
objWB.Close True
Set ObjWB=Nothing
objExcel.Close
Set ObjExcel=Nothing
End If
End Function