Name der angeklickten Grafik ermitteln

[moonshine2000]

Halli hallo,
Habe in einem Excel-Blatt Bilder eingfügt. Nach der Selektion eines Bildes vergebe ich diesem über nachfolgendes Makro einen Namen.

Sub Shape_Name_vergeben()
'Bennenen einer selektierten Grafik
Dim shape_name As String
Dim oShape As Shape
shape_name = Application.InputBox(Prompt:="Bildname ?")
Set oShape = ActiveSheet.Shapes(Selection.Name)
With oShape
.Name = shape_name
.OnAction = "Mein_Name"
End With
End Sub

Nun wollte ich mir über "Mein_Name" den Namen der jeweils angeklickten Grafik in einer Box zeigen lassen.

Sub Mein_Name()
Dim shape_name As String
shape_name = .....

MsgBox "Mein Name ist " & shape_name
End Sub

Aber irgendwie klappt das nicht - weil da fehlt noch was.
Weder ActiveSheet.Shapes(Selection.Name) noch
ActiveSheet.Shapes(OnAction.Name) bringen ohne Fehlermeldung einen Namen.

Hat da jemand eine Idee?