Este fórum está sendo desativado

[Mafalda]

Olá!
Possuo pasta de trabalho com dezenas de nomes e gostaria de extrair Relação dos Nomes (Gerenciador de Nomes) em planilha, mas não encontrei solução (VBA). Por favor, alguém ajude?
Abraços.

[gfranco]

Boa noite

Cole o código num módulo e execute numa planilha vazia...


Sub nomes_dos_nomes()
On Error Resume Next
Dim i As Long

For i = 1 To 100
ActiveSheet.Cells(i, 1) = ThisWorkbook.Names(i).Name
ActiveSheet.Cells(i, 2) = ThisWorkbook.Names(i)
Next
MsgBox "concluido"

End Sub

[alexandrevba]

Boa noite!!

Veja em:
https://www.vbatricksntips.com/list-all-name-range.html

Código: Selecionar todos

Sub List()

Dim nRng As Name
' Author: Dreams24
' Written for VBA Tricks and tips blog
' https://www.vbatricksntips.com

    Sheet1.Cells(1, 1).Value = "Name"
    Sheet1.Cells(1, 2).Value = "Range"
    
    i = 2

' Loop through all Name ranges in workbook
    For Each nRng In Names
        Sheet1.Cells(i, 1).Value = nRng.Name
        Sheet1.Cells(i, 2).Value = nRng
        i = i + 1
    Next nRng

    MsgBox "All named ranges listed successfully", vbInformation

End Sub

Leia:
http://chandoo.org/wp/2010/09/20/show-all-names-excel/

Att

[Mafalda]

Pronto.
Valeu!