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
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks