Hi Herpes,
fürchte, ich habe noch immer eine Tabelle von Dir in meiner Mailbox rumliegen, komme aber einfach nicht dazu, sie anzuschauen. Aber dafür kann ich Dir vielleicht mit dieser kleinen Antwort helfen:
Den Namen des zuletzt eingefügten Shapes bekommst Du über
Range(„A1“) = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Dein Ansatz,
set Range(„A1“)= Active.Shapes.name klappt leider nich…
funktioniert nicht, weil Shapes alle Shapes darstellt, Du musst einen Index angeben, etwa Shapes(1).name. Damit Du den letzten erhältst, gib als Index einfach Shapes.Count, also die Anzahl der Shapes an.
So einfach!
Gruß
Sculpture