please make the application visible before you open presentation in application object
means

ppApp.Visible = msoTrue
Set ppPresent = ppApp.Presentations.Open(CommonDialog2.FileName, msoCTrue, msoCTrue, msoCTrue)


try this