Fellipe Coelho de Morais

Obrigado pelo retorno!

Mas este código retorna somente caso eu tenha o nome da planilha, ou seja, um nome fixo. Eu precisava listar todas as planilhas abertas, independente do nome.

Felizmente consegui resolver este problema usando a Sub abaixo. Era mais simples do que parecia.

 

Sub ListarPlanilhasAbertas()

 

    Dim wb As Workbook
    Dim row, collumn As Integer

 

row = 1
collumn = 1

 

    For Each wb In Application.Workbooks
          
          Cells(row, collumn).Value = wb.Name
          row = row + 1
          
    Next wb

 

End Sub

 

Obrigado novamente!

 

Olá pessoal!

 

Estou criando um programa em VBA para Excel no qual para realizar uma tarefa, ele precisa gerar antes, uma lista com todas as planilhas que estão abertas no sistema. Como eu poderia fazer isso? 

 

Desde já agradeço a ajuda.