Sub openPre() Presentations.Open FileName:="C:\Time.ppt", ReadOnly:=msoFalse End Sub 'Saving a Presentation