Solved with this code;

Presentations.Open FileName:=“FILEPATH”, Untitled:=msotrue