run a macro through many sheets in one workbook (sheets have names individually)

hi
i want to run this code through the sheets but i faced with error

Sub b()
Worksheets(Array(1 - 10 - 2017), (1 - 11 - 2017), (1 - 12 - 2017), (6 - 1 - 2017), (8 - 1 - 2017), (5 - 1 - 2017),(7 - 1 - 2017),(4-1-2017),(3-1-2017),(9-1-2017),(2-1-2017),(1-1-2017)).Select

    Worksheets(10- 1 - 2017).Activate
    Rows("1:1").Select
    Selection.delete Shift:=xlUpm.PNG
    Range("A1:B1550").Select
    Range("A3").Activate
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$1550").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "10/31/2017")
    Range("A1:A1501").Select
    Selection.ClearContents
    Range("B1:B1501").Select
    Selection.NumberFormat = "[$-409]d-mmm-yyyy;@"
    Range("D1101").Select
    Selection.AutoFilter
    ActiveWorkbook.Save
  
'Normaly here you save the work
End Sub