Cacher is the code snippet organizer for pro developers

Sub Display_SlideIDs()

Dim i As Integer
Dim PPS As Slide

Dim p As Presentation
Set p = ActivePresentation
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each PPS In p.Slides

If PPS.SlideIndex = 2 Or PPS.SlideIndex = 4 Or PPS.SlideIndex = 7 Or _
    PPS.SlideIndex = 8 Or PPS.SlideIndex = 9 Or PPS.SlideIndex = 10 Or PPS.SlideIndex = 11 Or _
    PPS.SlideIndex = 23 Or PPS.SlideIndex = 29 Or PPS.SlideIndex = 52 Then

MsgBox (PPS.Shapes.Title.TextFrame.TextRange & " = " & PPS.SlideID)

End If
Next PPS

End Sub