For next

[Mike]

Is there a way to write a for next statement for some set numbers.

For instance, I want to have a loop to run for x = 4, 10, 19, 27.

Thanks,
Mike.

 

[JLGWhiz]

You can put the numbers in a range of cells, or in an array.
An array would go somethin like this.

Dim x As Variant
x = Array(4, 10, 19, 27)
For i = LBound(x) To UBound(x)
If x(i) = "something" Then
'Do something
End If
Next

 

[Rick Rothstein]

Just read the values directly from the Array function...

Dim V As Variant
For Each V In Array(4, 10, 19, 27)
MsgBox V
Next