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

"Mike" wrote:

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.