Insert this code between the "Sub" and "End Sub" lines:For i = 1 To number_of_slides ActivePresentation.Slides.Add slide_number, ppLayoutBlank Next iReplace "number_of_slides" with the number of ...