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