title: Is there a way to call nonstandard shapes in VBA; using application.caller does not work
body: <p>I want to assign a macro to shapes in my workbook where the macro assigns a relative hyperlink to the shape that called it.  I tried using application.caller to get the name of the shape to assign the hyperlink but it doesn't work for all shapes, like flow chart shapes.  Any suggestions on how I can get it to work for all shapes?  I get a run time error, item with specified name not found, for all flow chart shapes in my sheet. This code does work for standard shapes like rectangles; but flow chart shapes are required in my document.</p>
  
  <pre><code>'Hyperlink to tab "control point log" using text in shape and cell values
  
  Sub Controlpointhyperlink()
  Dim rowvar as integer
  
  ActiveSheet.Shapes(Application.Caller).Select
  Selection.ShapeRange.Item(1).Name = "thisshape"
  
  rowvar = Application.WorksheetFunction _
       .Match(ActiveSheet.Range("C2").Value &amp; _
       ActiveSheet.Shapes("thisshape").TextFrame2.TextRange.Text, _
       Sheets("Control Point Log").Range("A1:A700"), 0)
  
  With ActiveSheet
       .Hyperlinks.Add Anchor:= .Shapes("thisshape"), _
       Address:=ActiveWorkbook.Name &amp; "#" &amp; "'Control Point Log'!$C$" &amp; rowvar
  End With
  
  End Sub
  </code></pre>