Andre Camargo

Não estou conseguindo executar minha macro quando passa de mais de uma pasta, até a pasta1, segue ok. Segue abaixo a macro e será que pode me ajudar? Sub FiltrarExtratoFornecedor_LojaREF() ' ' FiltrarExtratoFornecedor_LojaREF Macro Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False 'Seleção do arquivo para extração Range("W6").Select Selection.ShowDetail = True Selection.Copy Workbooks.Add ActiveSheet.Paste Sheets.Add After:=ActiveSheet Windows("BEBIDAS_Acomp_ReaçãoPreço.v4-NANC.xlsb").Activate Sheets("De_Para_Loja REF").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Windows("Pasta1").Activate ActiveSheet.Paste Sheets("Planilha2").Select Sheets("Planilha2").Name = "Loja Referencia" Sheets("Planilha1").Select Sheets("Planilha1").Name = "Extrato" Columns("Q:Q").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A2").Select 'Salvar arquivo na rede renomeado por Fornecedor ActiveWorkbook.SaveAs Filename:= _ "\\brnts800\data11\Food\MERCEARIA\BEBIDAS FRIAS Final\SUCOS_NANC-HIDRATACAO\ANDRE_CAMARGO\Ferramenta_BEBIDAS\EnviarArquivo_Fornecedor\" & "Extrato_Reação-" & Range("T2") & "-" & Format(Now, "ddmmyy") & ".xlsx" _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close Sheets("Acompanhamento_REAÇÃO").Select Range("E2").Select 'Deletar planilhas que foram utilizadas para extração Application.DisplayAlerts = False On Error Resume Next Sheets(Array("planilha1")).Delete On Error Resume Next Sheets(Array("plan1")).Delete On Error Resume Next Sheets(Array("planilha2")).Delete On Error Resume Next Sheets(Array("plan2")).Delete On Error Resume Next Sheets(Array("planilha3")).Delete On Error Resume Next Sheets(Array("plan3")).Delete On Error Resume Next Sheets(Array("planilha4")).Delete On Error Resume Next Sheets(Array("plan4")).Delete On Error Resume Next Sheets(Array("planilha5")).Delete On Error Resume Next Sheets(Array("plan5")).Delete On Error Resume Next Sheets(Array("planilha6")).Delete On Error Resume Next Sheets(Array("plan6")).Delete On Error Resume Next Sheets(Array("planilha7")).Delete On Error Resume Next Sheets(Array("plan7")).Delete On Error Resume Next Sheets(Array("planilha8")).Delete On Error Resume Next Sheets(Array("plan8")).Delete On Error Resume Next Sheets(Array("planilha9")).Delete On Error Resume Next Sheets(Array("plan9")).Delete On Error Resume Next Sheets(Array("planilha10")).Delete On Error Resume Next Sheets(Array("plan10")).Delete On Error Resume Next Sheets(Array("planilha11")).Delete On Error Resume Next Sheets(Array("plan11")).Delete On Error Resume Next Sheets(Array("planilha12")).Delete On Error Resume Next Sheets(Array("plan12")).Delete On Error Resume Next Sheets(Array("planilha13")).Delete On Error Resume Next Sheets(Array("plan13")).Delete On Error Resume Next Sheets(Array("planilha14")).Delete On Error Resume Next Sheets(Array("plan14")).Delete On Error Resume Next Sheets(Array("planilha15")).Delete On Error Resume Next Sheets(Array("plan15")).Delete On Error Resume Next Sheets(Array("planilha16")).Delete On Error Resume Next Sheets(Array("plan16")).Delete On Error Resume Next Sheets(Array("planilha17")).Delete On Error Resume Next Sheets(Array("plan17")).Delete On Error Resume Next Sheets(Array("planilha18")).Delete On Error Resume Next Sheets(Array("plan18")).Delete On Error Resume Next Sheets(Array("planilha19")).Delete On Error Resume Next Sheets(Array("plan19")).Delete On Error Resume Next Sheets(Array("planilha20")).Delete On Error Resume Next Sheets(Array("plan20")).Delete On Error Resume Next Sheets(Array("planilha21")).Delete On Error Resume Next Sheets(Array("plan21")).Delete On Error Resume Next Sheets(Array("planilha22")).Delete On Error Resume Next Sheets(Array("plan22")).Delete On Error Resume Next Sheets(Array("planilha23")).Delete On Error Resume Next Sheets(Array("plan23")).Delete On Error Resume Next Sheets(Array("planilha24")).Delete On Error Resume Next Sheets(Array("plan24")).Delete On Error Resume Next Sheets(Array("planilha25")).Delete On Error Resume Next Sheets(Array("plan25")).Delete On Error Resume Next Sheets(Array("planilha26")).Delete On Error Resume Next Sheets(Array("plan26")).Delete On Error Resume Next Sheets(Array("planilha27")).Delete On Error Resume Next Sheets(Array("plan27")).Delete On Error Resume Next Sheets(Array("planilha28")).Delete On Error Resume Next Sheets(Array("plan28")).Delete On Error Resume Next Sheets(Array("planilha29")).Delete On Error Resume Next Sheets(Array("plan29")).Delete On Error Resume Next Sheets(Array("planilha30")).Delete On Error Resume Next Sheets(Array("plan30")).Delete Application.DisplayAlerts = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True MsgBox ("Arquivo Salvo na Rede") End Sub