Return Row Index and Column Index of a Cell in a Range

mike7952, thank you for your Try

i'm searching for a function (.RowIndex / .ColumnIndex) that return the row index and column index for each cell in the range, so that when i want to move the range to an array i will use the following code:

Sub MovRngToArr()

ReDim Arr(1 To Range("C4:E6").Rows.Count, 1 To Range("C4:E6").Columns.Count)

For Each Cll In Range("C4:E6")

   Arr(Cll.RowIndex, Cll.colunmIndex) = Cll

Next Cll

End Sub

instead of the following code:

Sub MovRngToArr()

ReDim Arr(1 To Range("C4:E6").Rows.Count, 1 To Range("C4:E6").Columns.Count)

For i = 1 To Range("C4:E6").Rows.Count

    For j = 1 To Range("C4:E6").Columns.Count

       Arr(i, j) = Range("C4:E6").Cells(i, j)

    Next j

Next i

End Sub