Function to show all values

[AlejandroArias]

Hi, I have a sheet with the following structure

' A B C <-- Columns
/START/
1
2
3
4
5
6
7
8
9
10
11
/END/

Rows = 2 to n
Columns = 2 to n

I need a function to show each element in the sheet,
somthing like

CellStart = A1
CellEnd = A55...
CellTemp = CellStart

While CellTemp <> CelEnd
if Worksheets(1).Range(CellTemp).Value <> null then
MsgBox Worksheets(1).Range(CellTemp).Value
end if
move to the next value (maybe down, maybe left)
CellTemp = CellTemp + 1 row
Wend

 

[Gary''s Student]

How about the following:

Sub alex()
Set r2 = Range("A1")
Set r1 = Range("A55")
Set rr = Range(r1, r2)
For Each r In rr
If Not IsEmpty(r.Value) Then
MsgBox (r.Value)
End If
Next
End Sub

 

[AlejandroArias]

Tkx Gary''s but I need show the others value too (2, 3, 4, 7, 8)

 

[AlejandroArias]

oK I modify the range and work... tkx

 

[AlejandroArias]

If I use Range values is a little strong, because, maybe the rows or
colums grow not always have the same rows or columns on each execution