hi,
perhaps something like this:

   Dim a() As Variant, i As Integer
   a() = Array(1, 4, 6, 8, 88)

   For i = LBound(a) To UBound(a)
       Debug.Print a(i)
   Next i

hi Bill,

No. Why would you do that?

Under some circumstance you may consider using a mapping array, e.g.

  Dim arr() As Long
  Dim i As Long
  Dim n As Long

  ReDim arr(0 To 7) As Long

  arr(0) = 1
  arr(1) = 2
  arr(2) = 3
  arr(3) = 4
  arr(4) = 6
  arr(5) = 8
  arr(6) = 9
  arr(7) = 10

  For i = LBound(arr()) To UBound(arr())
    n = arr(i)
    '...
  Next i

mfG
--> stefan <--

Hi Bill,
I dunno if exist a loop of the kind you said but you can do that

for n=0 to 10
   your code
   if n=4 then
       n=5    'placing five in n before the next n statement allow you to
skip this value 'cause the next n add 1 to n and so n will be 6
   endif
next n

HTH Paolo