If they are constants, you could use

Set rng = Range("A1:M100").SpecialCells(xlCellTypeConstants)
For Each cell in rng
...
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Martin" wrote in message
...
Dear experts,

how can I, in a worksheet, define the range that spans ONLY that part of
the
table, that does contain content ('value').
I want compare the entries of a table with each other, using a loop that
runs through it, but stops at the last entry.

Thank you
Martin