Powerpoint VisualBasic Script

Sub pre()
    Dim myPresentation As Presentation
    Set myPresentation = Presentations.Add(WithWindow:=msoFalse)
End Sub