Sub Iterate_Through_All_Shapes_And_Read_Tags()

    'PURPOSE: Refers to EACH object on EACH page and checks for a tags .name
    'Then if it is a StickyStyle Name 
    'Developer: Brian Reilly January 2001
    Dim iShape As Integer
    Dim iSlide As Integer
    Dim iTags As Integer


    For iSlide = 1 To ActivePresentation.Slides.Count
        With ActivePresentation.Slides(iSlide)
            For iShape = 1 To ActiveWindow.Presentation.Slides(iSlide).Shapes.Count
                'No need to select the object in order to use strShape
                
                With ActiveWindow.Presentation.Slides(iSlide).Shapes(iShape)
'''''''''''Substitute whatever code to the End of Substitute
                    For iTags = 1 To .Tags.Count
                    
                        If .Tags.Name(iTags) = "STICKYSTYLE" Then
                            MsgBox "The shape " & ActiveWindow.Presentation.Slides(iSlide) _
                                    .Shapes(iShape).Name & " has a Tags.Name of " & Chr(13) _
                                    & .Tags.Name(iTags) & Chr(13) _
                                    & "and has a Tags.Value of " & Chr(13) & .Tags.Value(iTags)
                            ''PROCEED WITH NEXT TAG AND NEXT OBJECT
                        End If
                        
                    Next iTags
                End With

''''''''''''End of Substitute
            Next iShape
        End With
    Next iSlide

End Sub