Sub CreatePresentations() Dim intPresentations As Integer Dim i As Integer intPresentations = 3 For i = 1 To intPresentations Presentations.Add Next i End Sub