when this code loops through the first time, both iRow and iCol equal "0".
Thats where it errors.  If I set the begining value for iRow and iCol to "1"
then it runs OK unitil the last loop where iCol  is one integer too high.

Please advise on the proper way to loop through an array like this.

Thanks.

Private Sub MakeRangeArray()
'On Error GoTo err_TestErr
    Dim varA As Variant
    Dim iCol As Integer
    Dim iRow As Integer
    varA = Worksheets("Sheet3").Range("C5:I12")

    For iRow = 0 To UBound(varA, 2)
        For iCol = 0 To UBound(varA, 1)
            Debug.Print varA(iRow, iCol);
        Next iCol
        Debug.Print
    Next iRow

err_TestErr:
    If Err.Number = 9 Then Resume Next
End Sub

--
George Padvorac

nwis.net

The error should occur here as in Excel, the lower bound of all cells and
ranges is 1, not 0.  You might also want to reference the Cells themselves
directly instead of using the Range.

HTH
--
Dev Ashish (Just my $.001)
---------------
The Access Web ( http://home.att.net/~dashish )
---------------