VBA-Abfrage, ob Zellenbereich einen Namen hat

Sub Zellennamen_in_Tabelle_ermitteln()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If nm.RefersTo Like "=" & ActiveSheet.Name & "*" Then MsgBox nm.Name
Next
End Sub

Aber wie kann ich die Abfrage auf einen Bereich festlegen?
Viele Grüße
Martin