Powerpoint VisualBasic Script

Sub apply()
    Presentations("Your.ppt").Slides(1).ApplyTemplate FileName:= "C:\Top.pot"
End Sub