Display Name of Range if it Exists

I want to display the named range in a userform when I click on a cell. If a name doesn't exist it should just display the address.

This works if the range is name.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     RngName = Target.Name.Name
    'etc

End Sub

but if it is not I get a Run Time Error '1004' message.
Some of my named ranges are merge cells and some are not but that doesn't seem to be the issue.

Any suggestions?