For i = LBound(aryData) To UBound(aryData) For j = LBound(aryData, 2) To UBound(aryData, 2) aryData(i, j) = 1 Next Next