Looping through cells in Range

Hi,

I can't tell why this is only looping through part of the range. I have tried resizing but still not working. The range is 5 * 10 and therefore the last x should be 50 but it only goes up to 10 making me think that the array is not two-dimensional. Any thoughts?

Sub LoopThrougCells()

Dim x As Long
Dim Rng As Range
Dim cl

Set Rng = Range("A1:E" & Cells(Rows.Count, "A").End(xlUp).Row)
cl = Rng
    For x = LBound(cl) To UBound(cl)
        MsgBox x
    Next
End Sub

abousetta