Excel VBA - Change color of a shape

How to change color of shapes using VBA codes? Codes: For i = 1 To 10 a = Sheet13.Cells(i + 1, 2) / 501 * 255 b = 50 / Sheet13.Cells(i + 1, 2) * 255 Sheet13.Shapes.Range(Array("Freeform " & i + 1)).Fill.ForeColor.RGB = RGB(a, b, 0) Next i Alternative (using Case function): For i = 1 To 10 API = Sheet13.Cells(i + 1, 2) Select Case API Case 0 To 50 a = 0 b = 255 Case 51 To 100 a = 50 b = 200 Case 101 To 200 a = 100 b = 150 Case 201 To 300 a = 150 b = 100 Case 301 To 500 a = 200 b = 50 Case Else a = 255 b = 0 End Select Sheet13.Shapes.Range(Array("Freeform " & i)).Fill.ForeColor.RGB = RGB(a, b, 0) Next i