Sub ChangeTextColors()

Dim oSl As Slide
Dim oSh As Shape
Dim lRow As Long

For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
If oSh.HasTable Then
With oSh.Table
For lRow = 1 To .Rows.Count
With .Cell(lRow, 1).Shape
If .HasTextFrame Then
If .TextFrame.HasText Then
If UCase(.TextFrame.TextRange) = "YES" Then
.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
End If
End If
End If
End With
Next lRow
End With
End If
Next oSh
Next oSl
End Sub