Powerpoint VisualBasic Script

Sub del()
    ActivePresentation.Slides(1).Delete
End Sub