Glad you got it working.

I always try to avoid selection

Sub show_all()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
osld.Shapes.Range.Visible = True
Next
End Sub

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials