Коллекция назывется Names , но она есть у
1) Worksheet
2) Workbook
3) Application
Так что вы определитесь
Ну а цикл :
Dim IName as Name
For Each IName in Activesheet.names
' тело цикла
Next IName