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