Sub test()

For x = 1 To 27

Select Case x

Case 4, 10, 17, 27
MsgBox x
Case Else
'do nada
End Select
Next x


End Sub


--
Steve

"Mike" wrote in message
...
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.