Sub chexSA()

Dim osubshp As Shape
Dim oshp As Shape
On Error GoTo err
Set oshp = ActiveWindow.Selection.ShapeRange(1)
If Not oshp.HasSmartArt Then
MsgBox "This does not look like you have a Smart Art shape selected!", vbCritical
Exit Sub
End If
For Each osubshp In ActiveWindow.Selection.ChildShapeRange
osubshp.Fill.ForeColor.RGB = vbRed
Next
Exit Sub
err:
MsgBox "Is a shape selected?", vbCritical
End Sub