Section

Display Section Name

Sub DisplaySectionName()
    'Active Slide
    Dim activeSlide As Slide
    Set activeSlide = ActiveWindow.View.Slide
    MsgBox ActivePresentation.SectionProperties.Name(activeSlide.sectionIndex)
End Sub

Loop Through Each Section

    Dim i As Integer
    For i = 1 To ActivePresentation.SectionProperties.Count
        Debug.Print ActivePresentation.SectionProperties.Name(i)
    Next