Nov 21, 2024
12:52:58pm
12:52:58pm
ChatGPT Solution is even cleaner
Sub SaveAllPresentations()
Dim ppt As Presentation
For Each ppt In Application.Presentations
ppt.Save
Next ppt
MsgBox "All presentations have been saved.", vbInformation
End Sub
Dim ppt As Presentation
For Each ppt In Application.Presentations
ppt.Save
Next ppt
MsgBox "All presentations have been saved.", vbInformation
End Sub
- Bio page
- AFewThoughts
- Joined
- Oct 4, 2014
- Last login
- Nov 21, 2024
- Total posts
- 5,094 (8 FO)
