Howdy,

The following code actually works but only after I run it a second time. I'm sure there is some little thing that I am missing. Can someone take a look?



[VBA]Sub UpdateData()
Dim sld As Slide
Dim shp As Shape
Dim wkb As Object

For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
shp.Chart.ChartData.Activate
Set wkb = shp.Chart.ChartData.Workbook
wkb.UpdateLink wkb.LinkSources(1)
wkb.Close True
End If
Next
Next

Set wkb = Nothing
End Sub[/VBA]