increase cyan value by 1.

Sub IncreaseCyanValue1()
Set OrigSelection = ActiveSelectionRange
For i = 2 To 100
OrigSelection.ApplyUniformFill CreateCMYKColor(i, 0, 0, 0)
Next i
End Sub

how to stop its run for 1 value only.

also if the object is arelady having cyan color, say 40, then it has to apply from 41, 42.... etc.

please someone help