saving PowerPoint in excel vb using cell values

J

Jeff

This is the way I save a workbook
How can I save my Powerpoint file using excel VB

Sub SAVE()

Sheets("FORM").Visible = False

FileName = Sheets("form").Range("A8").Value
SubDir = Sheets("form").Range("A7").Value
fileSaveName = SubDir & "\" & FileName
Activeworkbook.SaveAs FileName:=fileSaveName
 
Top