Powerpoint VisualBasic Script

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