Пересчет выделенного диапазона

Всем здравствуйте! Имеется расчетная таблица. Ввиду большого количества ссылок и формур расчет произвожу вручную. Иногда необходимо делать пересчет выделеннго диапазона. Пример кода, выложенного в сети (последовательный пересчет)

sub SelectionCalculate()
set ss = Selection
for each cl in selection.cells
cl.Select
cl.Calculate
next cl
ss.Select
end sub

работает некорректно, поскольку пересчет непоследовательный.
Прошу ваши замечания.