Welcome to the forum yandy,
Here is a method to loop through the shapes:
Sub test()
Dim x As Long
For x = 1 To 6
Sheet1.Shapes("SShape" & x).Fill.ForeColor.RGB = RGB(255, 51, 51)
Next x
End Sub
Here is a method to change them all at once:
Sub test2()
Dim arShapes() As Variant
Dim objRange As Object
arShapes = Array("SShape1", "SShape2", "SShape3", "SShape4", "SShape5", "SShape6")
Set objRange = ActiveSheet.Shapes.Range(arShapes)
objRange.Fill.ForeColor.RGB = RGB(255, 51, 51)
End Sub
Hope this helps