get the name of the shape so i can use in my vba code

[ilcaa]

i inserted 2 arrows into my worksheet, i want to reference the name... i cant seem to find the name, i figure in the properties dialog box it would exist but that would make too much sense. i used this code i found but the msgbox is empty
<code>
CallingShapeName = ActiveSheet.Shapes(Application.Caller).Name
MsgBox CallShapeName
</code>

its 2 simple arrows, 1 points left, 1 points right, they are both blue. i took them from the shapes drop down box in the Insert menu. where can i find the name!? thanks

 

[Domenic]

Once you select your shape, you should see the name of the shape in the Name Box, which is located on the far left side of the formula bar. If you don't see it, enable it as follows...

File > Options > Advanced > Display

...and check/select Show formula bar.

 

[Fluff]

If you need to do it via VBA, this works for me

Sub GetName()
Dim Nme As String
Nme = ActiveSheet.Shapes(Application.Caller).name
MsgBox Nme
End Sub

 

[ilcaa]

thanks, now i assigned the same macro to 2 arrow shapes. I am trying to do a basic if shapes.name = "xx" then, but its wrong, i also tried
If ActiveSheet.Shapes(Application.Caller).Name = "Left Arrow 1" Then... that doenst work...

<code>
If ActiveSheet.Shapes(Application.Caller).Name = "Left Arrow 1" Then
Run "shift_VizLOD_toLeft"
End If
'---------------------------------------------------
If ActiveSheet.Shapes(Application.Caller).Name = "Right Arrow 3" Then
Run "shift_VizLOD_toRight"
End If
</code>

 

[Fluff]

In what way doesn't it work?

 

[KKaren]

Another way is to select the shape and then check its name in the Selection pane (ALT + F10) and change it to whatever you want by making a double click there...
Afterwards you will be able to reference it by name in your code.

 

[OilEconomist]

If you need to do it via VBA, this works for me

Sub GetName()
Dim Nme As String
Nme = ActiveSheet.Shapes(Application.Caller).name
MsgBox Nme
End Sub

Hi. When I run this, I get the following error. Any idea why?

 

[Fluff]

Please start a new thread for this question.