Rückwärts

wie kann ich einen Bereich rückwärts durchlesen ?
Beispiel:
dim bereich as range
dim r as range
set bereich = range("a1:a8")
for each r in bereich
next r

So geht es nur vorwärts. Ich muss aber mit der letzten Zeile anfangen.

danke