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