サンプルマクロは、ブック内に定義されているセル範囲の名前とその
参照範囲を表示します。
Excel97とExcel2000では、若干コードが違います。

Sub Sample()

    Dim myName As Name
    Dim strName As String
    
    For Each myName In Names
        strName = strName & vbCrLf & myName.Name & myName
    Next

    'Excel2000の場合
    If InStr(3, strName, vbCrLf) <> 0 Then
        strName = Mid(strName, InStr(3, strName, vbCrLf) + 2)
        MsgBox strName
    Else
        MsgBox "名前は定義されていません。"
    End If
    
    'Excel97の場合
    'If strName <> vbNullString Then
        'strName = Mid(strName, 2)
        'MsgBox strName
    'Else
        'MsgBox "名前は定義されていません。"
    'End If

End Sub