петля через массив VBA

Sub LoopForArrayStatic() 
   'declare a variant array 
   Dim strNames(1 To 4) As String 
 
   'populate the array 
   strNames(1) = "Bob"
   strNames(2) = "Peter" 
   strNames(3) = "Keith" 
   strNames(4) = "Sam" 
 
   'declare a variant to hold the array element 
   Dim item as variant
 
   'loop through the entire array
   For Each item in strNames 
      'show the element in the debug window.
      Debug.Print item
   Next item
End Sub
Braxton Bell