excel 2013 nomes de intervalo de gama vba não funcionam - excel-vba, excel-2013, named-ranges, vba, excel

Estou usando o Excel 2013 e não consigo obter a contagemnem uma lista de nomes de intervalo. Eu posso abrir a caixa de diálogo Gerenciador de nomes e os nomes e intervalos são listados. Adicionei os nomes (List1, List2 e List3) à pasta de trabalho usando o VBA (Set rngTable = c.CurrentRegion.ListObjects.Add). Eu posso percorrer os intervalos nomeados usando "List" e intCounter para obter os intervalos associados a cada lista. Mas não consigo obter o número de nomes nem uma lista de nomes.

Eu tentei seguir o código no Excel 2013 e 2007 e quando a execução chega à linha Para i = 1 Para namedRanges.Count retorna zero (0). O que posso fazer para obter o número de intervalos nomeados na pasta de trabalho e listar os nomes dos intervalos nomeados? Sua ajuda é muito apreciada!

Privado Sub Algo ()

Dim namedRanges As Names
Set namedRanges = ActiveSheet.Names

Dim targetSheet As Worksheet
Set targetSheet = Sheet3
targetSheet.Cells.Clear

Dim i As Integer
For i = 1 To namedRanges.Count
targetSheet.Cells(i, 2).Value = namedRanges(i).Name
targetSheet.Cells(i, 3).Value = namedRanges(i).RefersToRange.Address
Next

End Sub

Respostas:

Os intervalos nomeados estão no escopo da planilha ou da pasta de trabalho? Se eles não estiverem limitados a uma única planilha, você precisará fazer referência à coleção de pastas de trabalho.Names.

Set namedRanges = ActiveWorkbook.Names