Cacher is the code snippet organizer for pro developers

Sub ShowSlideID()

Dim p As Presentation
Set p = ActivePresentation

Dim No As Integer
Dim i As Integer
'***************************

i = InputBox("Enter Slide number")
No = p.Slides(i).SlideID

MsgBox (No)
End Sub