Dear all,

I'm looking for a code with which I can save I can save a powerpoint with a timestamp in a predefined folder. So it should be like:

- I press a shortcut
- I get a pop up box
- I press enter and file is saved.

I created an excel file for this (see below) but cant find how to do this in powerpoint. Anybody help on how I can do this?

Dear regards, Marc


Sub SAVEINFOLDER()

Dim FileName As String


FileName = InputBox("Geef hier je bestandsnaam aan")
FullName = team & "FILE.xls"



Const Path = "C:\Documents and Settings\aa471714\Desktop\TEST\"
ThisWorkbook.SaveAs Path & FullName

End Sub