Powerpoint VisualBasic Script

Sub titleMaster()
    If ActivePresentation.HasTitleMaster Then ActivePresentation.TitleMaster.Delete
End Sub