Through a lot of trial and error I got this code to work:

Worksheets("Figure3-5").ChartObjects("Chart1").Activate
ActiveChart.Shapes("TextBox 2").TextFrame.Characters.Text = Range("A" & Rows.Count).End(xlUp).Value