Select Case
'where 8 and 10 would depend on a cell value' Don't really understand what
you mean here. However, if steps are always 99 then why not use something
like this:-
For i = 28 To myCase Step 99
'your code in here including test for cell value
Next
--
Regards,
OssieMac
"jnf40" wrote:
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
|