Welcome to the Forums.

Try this after the .Run line.

VB Code:
  1. ppt.Activate