Macro to open chart data in powerpoint, which is linked to excel work book

[linda20]

I can't execute the following macro. It kept getting stuck at the line
pptChartData.Activate

please help. thks


Option Explicit


Sub ChangeChartData()

Dim pptChart As Chart
Dim pptChartData As ChartData
Dim xlWorkbook As Object
Dim sld As Slide
Dim shp As Shape
Dim pptWorkbook As Workbook

For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoChart Then
If shp.HasChart Then
Set pptChart = shp.Chart
Set pptChartData = pptChart.ChartData
pptChartData.Activate
Set pptWorkbook = pptChartData.Workbook
pptWorkbook.Close SaveChanges:=False

End If
End If
Next shp
Next

Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing
SlideShowWindows(1).Activate
End Sub