Howdy,

I have a presentation with a bunch of charts. I am just trying to loop through the linked objects and change the path name. However, it keeps firing off an update of each link. This grinding what I thought was a simple exercise to a halt. Can someone help me with what i'm doing wrong?

Thanks

Sub SmokyLinks()
Dim sld As Slide
Dim shp As Shape
Dim strOld, strNew, strOldPath, strNewPath As String

strOldPath = "Nissan_CustomMonthly_New_V2.xlsx"
strNewPath = "\Region Reports\Excel Files updated\Nissan_CustomMonthly_New_V2 - Central.xlsx"

For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoLinkedOLEObject Then
shp.LinkFormat.AutoUpdate = ppUpdateOptionManual
strOld = shp.LinkFormat.SourceFullName
strNew = Replace(strOld, strOldPath, strNewPath)
shp.LinkFormat.SourceFullName = strNew
End If
Next
Next

End Sub