Sub Create_arcs()

Dim MyShape As Shape

'Your number of parts in the circle
NumParts = 6

For i = 1 To NumParts

    Set MyShape = ActiveSheet.Shapes.AddShape(msoShapeBlockArc, 0.75, 0.75, 146.25, 146.25)
    With MyShape

        .Adjustments.Item(1) = i * 360 / NumParts
        .Adjustments.Item(2) = i * 360 / NumParts + 360 / NumParts
        'Size of internal doughnut
        '.Adjustments.Item(3) = .2

        'Format for each sharpe
        .Fill.ForeColor.RGB = RGB(i * 20, i * 20, i * 20)
        .Line.ForeColor.RGB = RGB(255, 255, 255)
        .Line.Weight = 3

    End With

Next i

End Sub