Creating a New Presentation Based on a Template
Sub open() Presentations.Open FileName:="C:\Capsules.pot", Untitled:=msoTrue End Sub