Hi Echo
I think that would still have the problem of leaving gaps in the numbers.
However you've given me an idea!!
If you use title only layout for the section slides and then use this vba to
number the slides....
Sub numbers()
Dim osld As Slide
Dim Inum As Integer
Inum = 1
For n = 1 To ActivePresentation.Slides.Count
If ActivePresentation.Slides(n).Layout <> ppLayoutTitle Then
ActivePresentation.Slides(n).Shapes. _
AddTextbox(msoTextOrientationHorizontal, 650, 500, 60, 20). _
TextFrame .TextRange = Inum
Inum = Inum + 1
End If
Next n
End Sub
Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html