VBA Code to update powerpoint links

Hi,

I am using a code to update links in powerpoint however getting a compile error which says "Next without For".

Sub linkupdate()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then
oshp.LinkFormat.Update
Next oshp
Next osld
End Sub

Any help would be appreciated.

Thanks!