If your blocks are named ranges:

sub LoopBlocks
dim i as integer
dim rBlock as range

for i = 1 to 9
set rBlock = Range("block" & i)
<do something with rBlock
next i

end sub

HTH
--
AP

"sybmathics" a écrit dans le message de news:
...
Hi,

In a spreadsheet i want to check different sections for the presence of
value.

These sections are declared as block1, block2 .... block9.

Now I want a routine that loops through all 9 secioins or blocks where 1
is raised to 2, 2 is raised to 3 etc.8 is raised to 9.

I this possible?

--
||//////||
( o o )
( O )
-
( )
( )
(______O______)