Ola!

Eu gostaria de executar uma rotina que muito simples de abrir todas as pastas do Excel dentro de uma pasta, mas não estou conseguindo.

Tinha começado um mais ou menos assim:

Sub Teste()
    Dim Pasta As String
    Dim Arquivo As String

    Pasta = ActiveWorkbook.Path
    Arquivo = Dir(Pasta & "DiretoriaArquivos dos Meses*.xlsx")
    
    While Arquivo <> ""
    Workbooks.Open (Pasta & "DiretoriaArquivos dos Meses" & Arquivo)
    Wend

End Sub

A Macro não retornar nenhum erro, e as planilhas não abrem. Como abrir todas de planilhas via VBA?