Matheus06

Olá a todos, esperam que estejam bem! Saberia me dizer de qual forma eu consigo reduzir as linhas abaixo? Sheets("02").Select Columns("J:P").Select Selection.AutoFilter ActiveSheet.Range("$J$1:$P$3000").AutoFilter Field:=1, Criteria1:="=" Columns("O:P").Select Selection.EntireColumn.Hidden = False Range("A1").Select Sheets("03").Select Columns("J:P").Select Selection.AutoFilter ActiveSheet.Range("$J$1:$P$3000").AutoFilter Field:=1, Criteria1:="=" Columns("O:P").Select Selection.EntireColumn.Hidden = False Range("A1").Select Sheets("07").Select Columns("J:P").Select Selection.AutoFilter ActiveSheet.Range("$J$1:$P$3000").AutoFilter Field:=1, Criteria1:="=" Columns("O:P").Select Selection.EntireColumn.Hidden = False Range("A1").Select Sheets("09").Select Columns("J:P").Select Selection.AutoFilter ActiveSheet.Range("$J$1:$P$3000").AutoFilter Field:=1, Criteria1:="=" Columns("O:P").Select Selection.EntireColumn.Hidden = False Range("A1").Select Sheets("10").Select Columns("J:P").Select Selection.AutoFilter ActiveSheet.Range("$J$1:$P$3000").AutoFilter Field:=1, Criteria1:="=" Columns("O:P").Select Selection.EntireColumn.Hidden = False Range("A1").Select Sheets("14").Select Columns("J:P").Select Selection.AutoFilter ActiveSheet.Range("$J$1:$P$3000").AutoFilter Field:=1, Criteria1:="=" Columns("O:P").Select Selection.EntireColumn.Hidden = False Range("A1").Select Sheets("Fechamento").Select Eu acrescento novas ABAs recorrentemente, então gostaria de saber se há alguma forma de ou reduzir as linhas ou deixar um comando. Como por exemplo, selecionar todas as outras abas sem ser ''Fechamento'' e realizar o código. Desde já agradeço.