Duplicate Slides

Sub Slide_Creation()

Sub Slide_Creation()
' this sub duplicates the standard slide
Dim myPres As Presentation
Dim mySlide As SlideRange
Dim count As Long

For j = 1 To 49 ' this will create in total 50 slides (one original plus 49 duplicates)
    
    Set myPres = ActivePresentation
    ' Duplicate the slide at index 'count'.
    Set mySlide = myPres.Slides(j).Duplicate
    ' Switch to the proper slide.
    ActiveWindow.View.GotoSlide Index:=j

Next


End Sub