asked on
strShapeToSelect = "Note 85"
For Each sld In ActivePresentation.Slides
Set shp = sld.Shapes(strShapeToSelect)
If Not IsEmpty(shp) Then
shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
Exit For
End If
Next