Macro to report all hidden slides to MsgBox

[bartelby]

Would like a macro to loop through all slides in a presentation, find any hidden slides and then have the hidden slide numbers reported to a summary in a messagebox.
would appreciate any help!
Thanks!
Bart

[Paul_Hossler]

This is in PP 2016




Option Explicit

Sub ListHiddenSlides()
Dim oSlide As Slide
Dim sMsg As String

sMsg = "Hidden Slide Numbers are:" & vbCrLf & vbCrLf
For Each oSlide In ActivePresentation.Slides
With oSlide
If .SlideShowTransition.Hidden Then
sMsg = sMsg & .SlideNumber & vbCrLf
End If
End With
Next

MsgBox sMsg
End Sub

[bartelby]

Hi Paul

that is perfect.
thank-you so much!
best,
bart

[Paul_Hossler]

no problem

You can mark your thread as [Solved] using [Thread Tools] menu above your first post