トップ　>　汎用コード　>　名前を取り出す

Sub Get_Name() '選択範囲データの名前を取り出す
    '定数
    Const conSpace As String = "　" '基準の文字列
    '変数
    Dim c          As Long
    Dim objRange   As Range
    With Application
        .ScreenUpdating = False
        For Each objRange In .Selection
            c = InStr(1, objRange.Value, conSpace, vbTextCompare)
            If 0 < c Then
                With objRange
                    .Value = Mid$(.Value, c + 1)
                End With
            End If
        Next
        .ScreenUpdating = True
    End With
End Sub