Recursively traverse through a range and assign a value to each cell in range

To learn recursive programming and trying to write a simple VBA to traverse to every cell in a defined range and put 1 into the cells. (I know this can be done easily through iteration by using two loops.)

The following script fills up to 3346 cells before it threw Error 28 "Out of Stack spaces".

Is it an error on my script or Excel's limit on stack? Thank you for your help.

Please Login or Register  to view this content.

--
Chris Win