Powerpoint VisualBasic Script

Sub Duplicate()
    ActivePresentation.Slides(4).Duplicate
End Sub