Sorry John, I worked it out thanks to the debugger:

Sub sameFillColor()
Dim oshpR As ShapeRange
Dim S As Long
On Error Resume Next
Set oshpR = ActiveWindow.Selection.ShapeRange
For S = 2 To oshpR.Count
oshpR(S).Fill.ForeColor = oshpR(1).Fill.ForeColor
Next S
End Sub