Sub Name() ActivePresentation.Slides(1).Name = "Introduction" ActivePresentation.Slides("Introduction").Select End Sub