Sub chexLinks()
Dim osld As Slide
Dim ohl As Hyperlink
Dim txtBox As Shape
Dim strLinks As String
Dim lngID As Long
Dim lngPos As Long
Dim b_found As Boolean
Call removeall
For Each osld In ActivePresentation.Slides
For Each ohl In osld.Hyperlinks
If ohl.Address = "" Then 'internal
lngPos = InStr(ohl.SubAddress, ",")
lngID = CLng(Left(ohl.SubAddress, lngPos - 1))
If lngPos > 0 Then
b_found = True
strLinks = strLinks & "Link to Slide " & ActivePresentation.Slides.FindBySlideID(lngID).SlideIndex & vbCrLf
End If
End If
Next ohl
If b_found Then
Set txtBox = osld.Shapes.AddLabel(msoTextOrientationHorizontal, -120, 10, 120, 100)
txtBox.TextFrame.TextRange = strLinks
txtBox.TextFrame.TextRange.Font.Size = 12
txtBox.Name = "Link report"
End If
b_found = False
strLinks = ""
Next osld
End Sub

Sub removeall()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
On Error Resume Next
osld.Shapes("Link report").Delete
Next osld
End Sub