Dim outer As Long
Dim inner As Long
For outer = LBound(arrData, 1) To UBound(arrData, 1)
    For inner = LBound(arrData, 2) To UBound(arrData, 2)
        Debug.Print arrData(outer, inner)
    Next
Next