Finde den Fehler nicht ;-(((

ich möchte gerne alle Zellnamen und deren Adresse in einer Arbeitsmappe auflisten.
in der Zeile mit (XX) steigt mir das Makro aber immer aus!
Kann mir jemand da helfen.
Ich finde denn Fehler einfach nicht.

Gruß

Dieter

Sub name_auflisten()
Dim x As Integer, a As Integer, r As Integer
Set nms = ActiveWorkbook.Names
a = 1
Set wks = ActiveSheet
For r = a To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
(XX) wks.Cells(r, 3).Value = nms(r).RefersToRange.Address()
Next
End Sub