Turn Off macro on button click

Hi,
in the attached example, Tree() is run on workbook open, which recalculates sheet1 every second and so makes tree shimmer. I put

DoEvents

to enable user to work with file while macro is run.

But how to let him/her stop the macro without pressing Ctrl + Break, but simply on button click ?

[ATTACH]n1197477[/ATTACH]