Loops

For simple 1-dimensional arrays, the For-Each-Next tends to be faster than the For-Next.

For - Next

You can iterate through the elements of an array using a For - Next loop.

Public Sub ForNextLoop() 
Dim arValues As Variant 
Dim oItem As Variant 
Dim iArrayCount As Integer 
   arValues = Array(1,2,3,4,5) 

   For iArrayCount = 0 to UBound(arValues) 
      oItem = arValues(iArrayCount) 
      Debug.Print oItem 
   Next iArrayCount 
End Sub 

For Each - Next

You can iterate through the elements of an array using a For Each - Next loop.
The data type of oItem must be Variant.

Public Sub ForEachLoop() 
Dim arValues As Variant 
Dim oItem As Variant 
   arValues = Array(1,2,3,4,5) 

   For Each oItem In arValues 
      Debug.Print oItem 
   Next oItem 
End Sub