For Next (non consecutive values for i)

[Guest]

When using the For i = 1 to 10
‘Your code’
Next i

Can I define i = 1 to 10 (excluding certain values)?
I want the code to be executed only for i= 1,4,5,6,8,10

Thanks

 

[Guest]

for i = 1 to 10

Select Case i
case 1, 4, 5, 6, 8, 10

End Select

Next

 

[JE McGimpsey]

One way:

Dim vArr As Variant
Dim i As Long
Dim j As Long
vArr = Array(1,4,5,6,8,10)
For j = LBound(vArr) to UBound(varr)
i = vArr(j)
'Your code
Next j

 

[Guest]

Sub caroline()
s = Array(1, 4, 5, 6, 8, 10)
For i = LBound(s) To UBound(s)
MsgBox (s(i))
Next
End Sub