Como listar todas as pastas do Excel abertas na seção atual usando Excel VBA - Visual Basic for Applications para iniciantes

' Procedimento usado para listar todas as pastas (Workbook) abertas
' na seção atual do Excel
Sub ListarTodasPastas()
  ' variáveis usadas na resolução do problema
  Dim pasta As Workbook
  Dim nomePasta As String
  Dim contador As Integer
    
  ' vamos inicializar o contador em 2 para acessarmos
  ' a segunda linha da planilha atual
  contador = 2
    
  ' vamos exibir a mensagem informativa
  Sheets("Planilha1").Range("A1") = "Nomes das pastas abertas"
    
  ' e agora percorremos todas as pastas abertas
  For Each pasta In Application.Workbooks
    Sheets("Planilha1").Range("A" & contador) = pasta.Name & vbCrLf
        
    ' aumentamos o contador
    contador = contador + 1
  Next
End Sub