Is it possible to do a reverse for each..next loop .e.g

Dim grCell as range

for each grCell in range("A100:A1") ' loop bottom to top
...do something here
next grCell

Any ideas
Thank you for your time.