stupler,

I looked into your file, I cannot understand what it does, but since
you are using VBA, you might find the following helpful:

Application.Calculation = xlCalculationManual
....
Application.Calculation = xlCalculationAutomatic

These two lines can be inserted above and below some code to
temporarily suspend automatic recalculation. They could also be used in
an event macro for the sheet, i.e. a macro that is invoked when an
event fires that Excel traps. In your case this would be the

Private Sub Worksheet_Change(ByVal Target As Range)

This is a predefined macro, empty until you fill it. To get there,
double click the corresponding sheet icon in the Project Manager (in
VBA IDE). Once the window is open, at the top there are two drop-down
boxes. The left displays General. Switch to Worksheet. Then, at the
right, you can see the available events for the worksheet.

HTH
Kostis Vezerides