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