title: Getting name of each open PPT presentation using VBA
body: <p>I want to get the name of each open PPT presentation using the following code.
  Problem is that I get the error message "ActiveX component can't create object" in the "For each"-line of the code. </p>
  
  <p>Thanks in advance for your help!</p>
  
  <p>PS: Weird thing: I copied the code EXCACTLY from here: <a href="http://vba.relief.jp/powerpoint-macro-get-all-open-presentations-name/" rel="nofollow noreferrer">http://vba.relief.jp/powerpoint-macro-get-all-open-presentations-name/</a></p>
  
  <pre><code>Sub GetAllOpenPresentationsName()
  
  Dim prs As Presentation
  
  
  For Each prs In Presentations
  
  Debug.Print prs.Name
  
  Next prs
  
  End Sub
  </code></pre>