Dim slideCount As Integer
    Dim numShapes As Integer
    Dim mySlide As Slide
    Dim myShape As Shape
    Dim myString As String
    
    'slideCount = Application.ActivePresentation.Slides.Count
    
    For Each mySlide In ActivePresentation.Slides
        numShapes = mySlide.Shapes.Count
        For Each myShape In mySlide.Shapes
            If (myShape.HasTextFrame) Then
                'myShape.TextFrame.TextRange.Text = "Bob"
                myString = myShape.TextFrame.TextRange.Text
                
                If (InStr(1, myShape.TextFrame.TextRange.Text, "Where", vbTextCompare) <> 0) Then
                    'If (StrComp("if", myString, vbTextCompare) = 0) Then
                    MsgBox (myString)
                    myShape.TextFrame.TextRange.Font.Color = RGB(255, 0, 0)
                    
                End If
            End If
        Next myShape
    Next mySlide