Worksheet_SelectionChange get shape in the selected cell

Hello

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

In the above function I'd like to check if the Target cell contains any shape and if so get it's name.

Thanks in advance for your help,