Option Explicit
Public Sub bsp()
Dim objWorkbook As Workbook
Dim strDate As String
strDate = Format$(Date, "yyyymmdd")
For Each objWorkbook In Workbooks
With objWorkbook
If .Name Like strDate & "*" Then
.ActiveSheet.Range("A1:AL310").NumberFormat = "@"
.ActiveSheet.Range("A1").AutoFilter
.ActiveSheet.Range("$A$1:$AL$1280").AutoFilter Field:=16, Criteria1:=Array( _
"75137-21", "75138-11", "75139-11"), Operator:=xlFilterValues
.ActiveSheet.Range("$A$1:$AL$1280").AutoFilter Field:=14, Criteria1:=Array( _
"KBE", "P05MI", "P5MI", "TOAC"), Operator:=xlFilterValues
End If
End With
Next
End Sub