Download: PowerPoint VBA macro to save numbered and dated versions of workbook files

Note: I posted the PowerPoint version rather than the Excel version of my macro. My bad for posting here!

I created this macro based on a similar Word VBA macro from Graham Mayor that does this for MS Word documents. This macro takes a file like "file.pptx" and saves it as "file-2011-08-29-v001.pptm". Running the macro again increments the file name to "file-2011-08-29-v002.pptm" and saves it.

Save this code in a VBA module and attach it to a Quick Access Toolbar icon of your choice. It will only work within .pptm files.

I use this to keep track of versions of presentations when I make changes or when I send to others to make changes.

Graham Mayor's original MS Word VBA code to so this is at
http://www.gmayor.com/save_numbered_versions.htm

Hope it is useful to someone.
Kurt

I'd prefer:

Sub snb()
 With activeworkbook
  If .Path = "" Then Exit Sub
    
  x01 = Split(.Name, IIf(InStr(.Name, "_") = 0, ".", "_"))(0) & Format(Date, "_yyyy-mm-dd-v001.") & CreateObject("scripting.filesystemobject").getextensionname(.Name)
  If InStr(.Name, "_") > 0 Then x01 = Replace(x01, "v001", Format(Right(Split(.Name, ".")(0), 3) + 1, "v000"))
  .SaveAs x01, .FileFormat
 End with
End Sub