#application caller shapes(activeshape.name) #

i have code
Sub Macro2()

With ActiveSheet.ChartObjects(1).Chart
ActiveSheet.Shapes("Chart 24").Fill.Visible = msoFalse
ActiveChart.PlotArea.Select
Selection.Format.Fill.Visible = msoFalse
End With
End Sub

' how to make dinamis shapes name ActiveSheet.Shapes("Chart 24")
'become activesheet.shapes(Application.caller) but not run