Powerpoint VisualBasic Script

Sub open()
    Presentations.Open FileName:="C:\Capsules.pot", Untitled:=msoTrue
End Sub