Application.Names (Excel)
Retorna uma coleção de nomes que representa todos os nomes na pasta de trabalho ativa. Objeto Names somente leitura.
O uso desta propriedade sem um qualificador de objeto equivale a usar ActiveWorkbook.Names.
Dim nmsNames As Names
Set nmsNames = Names