Creating a presentation with N blank slides (VBA-PP)

Sub InsertNslides()
Dim n As Integer
Dim i As Integer

n = InputBox("How many slides?")

i = 0

Do Until i = n
i = i + 1
ActivePresentation.Slides.Add 1, ppLayoutBlank
Loop

End Sub

What do you think? Is it good for a beginner??