How to close all the presentations in PowerPoint

Okay, I’ve to say I put it here so that I can simply copy & paste & run it when it’s needed.

While Application.Presentations.Count > 0 : Application.Presentations(1).Close : Wend