If everything stays the same except the month
Sub fixLinks()
Dim osld As Slide, oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then
If oshp.OLEFormat.ProgID Like "*Excel*" Then
oshp.LinkFormat.SourceFullName = Replace(oshp.LinkFormat.SourceFullName, "Sept", "Oct")
End If
End If
Next: Next
End Sub
NOTE the new link location must actually exist or it will crash
|