Use activepresentation.
if pptApp.presentations.count > 0 then
   set pptPres = pptApp.Activepresentation
end if
You may find the count is always greater than zero as a blank presentation is opened when the application starts.