Slide

Get Active SlideIndex

Dim activeSlideIndex as Integer
'For Normal Mode
activeSlideIndex = ActiveWindow.View.Slide.SlideIndex
'For Presentation Mode
activeSlideIndex = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

Get Active Slide

Dim activeSlide As Slide
'For Normal Mode
Set activeSlide = ActiveWindow.View.Slide
'For Presentation Mode
Set activeSlide = ActivePresentation.SlideShowWindow.View.Slide

Loop Through All Slides

    Dim slide As slide
    For Each slide In ActivePresentation.Slides
       Debug.Print slide.SlideIndex
    Next

Get Slide Title

Sub Test()
    Dim slide As slide
    Dim shape as shape
    For Each slide In ActivePresentation.Slides
        If slide.Shapes.HasTitle Then
            Debug.Print slide.SlideNumber, slide.Shapes.Title.TextFrame.TextRange.Text
            set shape=slide.shapes.Title
            Debug.Print shape.Name
        End If
    Next
End Sub