Runtime Error with shapes(application.caller)

[Talha]

Dear Users,

1. I have a dynamic list of organisations.
Through VBA I insert a rectangle as shapes.

Set s = Worksheets("Tabelle1").Shapes.Addshape(62, 70, 120 150, 30)

Simultaneously I assigned the created shape a macro through

s.OnAction ="Macro"

2. Later this macro should plot data for different organisations.

I defined "Macro" as a function which has

Set shapeObject = Worksheets("Tabelle2").Shapes(Application.Caller)

Strange enough it works for some shapes but for many I get an error. Runtime error '2147024809 (80070057)'. Element with the given name not found.

I am using Office 2010.

For any solutions/suggestions I would be greatly thankful.

Best Regards
Talha

 

[RoryA]

Welcome to the forum.

Based on that code, you added the shape to one sheet but are trying to access it as though it were on another sheet.

 

[Talha]

Sorry my mistake in the first thread. In actual code it is

"Tabelle1"

 

[RoryA]

How long is the name of the shape for one that fails. If it's over 31 characters, Application.Caller won't work properly.

 

[Talha]

They are not longer than 31 characters.

For example it is working for:
Aero-Dienst GmbH & Co. KG

and not working for
Advanced Aviation Logistic

 

[RoryA]

And what is Application.Caller returning when the error happens?

 

[Talha]

Actually nothing. I can close the error window or debug the error. However debugging is not possible.

 

[RoryA]

Do you mean Application.Caller is actually empty? If so, can you put a workbook somewhere for me to have a look at?