Number Sections in PowerPoint 2010

Version 2010 allows you to split your presentation into sections. However it does not allow you to renumber each section starting from one individually.

This code tries to do that for you.

Sub sectioner()
Dim osld As Slide
Dim chK As Long
Dim num As Long
Dim SNplc As Shape
chK = 1
If Val(Application.Version) < 14 Then
MsgBox "This is only for version 2010 on!", vbCritical
Exit Sub
End If
For Each osld In ActivePresentation.Slides
num = num + 1
'new section found?
If osld.sectionIndex > chK Then
num = 1
chK = osld.sectionIndex
End If
osld.HeadersFooters.SlideNumber.Visible = True
Set SNplc = getNumber(osld)
If Not SNplc Is Nothing Then
SNplc.TextFrame.TextRange = CStr(num)
End If
Next osld
End Sub
Function getNumber(osld As Slide) As Shape
For Each getNumber In osld.Shapes
If getNumber.Type = msoPlaceholder Then
If getNumber.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then Exit Function
End If
Next
End Function

Don't know what to do with the code - SEE HERE