Is there a way the following code can be written where the places where 8 and
10 would depend on a cell value? If the cell value = 424 then

dim myCase as string
myCase = range("A1").value

for i = 28 to myCase

Select Case i
case 28, 127, 226, 325, myCase

or if the cell value = 10 then

case 28, 127, 226, 325, 424, myCase

the increment of the case is 99

End Select

Next