Здравствуйте.  
Подскажите - Как ограничить пересчет Workbook_SheetCalculate в определенной ячейке  
Здесь - ячейка F5  
 
Код:  
 
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)  
i = Range("F5")  
Range(Cells(2, 10), Cells(2, 35)).EntireColumn.Hidden = False  
Range(Cells(2, 35), Cells(2, 11 + i)).EntireColumn.Hidden = True  
   
End Sub  
 
На листе 1  (в оригинале) кол-во столбцов перещелкивается переключателем или вводится вручную.  
На листе 2 я попытался сделать это через формулу.  
 
Но этом коде происходит пересчет всей страницы.  
Но так как основной файл достаточно большой - экран подвисает и моргает.  
 
Или может быть есть другие варианты?  
 
Спасибо за помощь!