Sub titleMaster() If ActivePresentation.HasTitleMaster Then ActivePresentation.TitleMaster.DeleteEnd Sub