Edit Data in Word Chart - Activate Chart Data Window not working

I am looking to open the Edit Data excel table in a Word Chart to update the information for multiple charts in the document. I am looking to loop through all shapes in the document or I could call a chart using it's title too.

This is what I have so far and it just loops through the document and does nothing:

Code:

---

Sub ChartsUpdate()
Dim objShape As InlineShape
    For Each objShape In ActiveDocument.InlineShapes
  If objShape.Type = wdInlineShapeChart Then
      objShape.Chart.ChartData.ActivateChartDataWindow
  End If
Next
End sub

---

Hi everyone, I am still having issues with this. Anyone have any ideas?