Sub NestedLoops() Dim MyArray(10, 10, 10) Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 10 For j = 1 To 10 For k = 1 To 10 MyArray(i, j, k) = 0 Next k Next j Next i End Sub