Finding chart area or plot area

What am I doing wrong? I am trying to find my plot area. This is the example I found, but I can't get it to work.

Sub plot_area()
With Charts("Chart 2")
 Set pa = .PlotArea
 With .Shapes.AddShape(msoShapeRectangle, _
 pa.InsideLeft, pa.InsideTop, _
 pa.InsideWidth, pa.InsideHeight)
 .Fill.Transparency = 1
 .Line.DashStyle = msoLineDashDot
 End With
End With
End Sub