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
--
caroline

for i = 1 to 10

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

End Select

Next

--
Regards,
Tom Ogilvy

"caroline" wrote:

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
--
caroline

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

--
Gary''s Student - gsnu200724


"caroline" wrote:

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
--
caroline

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



In article ,
caroline wrote:

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