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
......