Listando todas as celulas nomeadas de uma planilha MS Excel

Em um módulo padrão:

Option Explicit

 Sub ListAllNames()
 Dim n As Name
     For Each n In ActiveWorkbook.Names
         Debug.Print n.Name, n.RefersTo
     Next n
 End Sub

 

Na janela imediata:

ListAllNames
Cargo =Identificação!$G$19
CEP =Identificação!$P$14
Cidade =Identificação!$G$14
CNPJ =Identificação!$G$10
Contato =Identificação!$G$18
DataDeFundacao =Identificação!$P$12
Distribuidor =Identificação!$K$17
Email =Identificação!$G$20
Endereco =Identificação!$G$13
Exporta =Identificação!$E$25
Fabricante =Identificação!$G$17
Fax =Identificação!$P$20
FormaLegal =Identificação!$G$12
GrupoInternacional =Identificação!$G$16
Inscricao =Identificação!$G$11
NaturezaDeAtividade =Identificação!$G$21
NomeFantasia =Identificação!$G$9
NumeroDaInscricao =Identificação!$P$11
NumeroDeFuncionarios =Identificação!$P$10
PrestadorDeServicos =Identificação!$O$17
PrincipaisProdutos =Identificação!$G$22
RazaoSocial =Identificação!$G$8
Telefone =Identificação!$P$19
WebSite =Identificação!$G$15

O texto a esquerda do sinal de igual (=) é o nome da celula nomeada e a direita é o endereço.

Esta entrada foi publicada em Excel, Visual Basic 6.0 e VBA com as etiquetas , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s