Снова и снова запускается следующий UDF в Excel 2007

Question

Следующий UDF хорошо работает в Excel 2013, но в excel 2007 он перезапускается снова и снова, когда я запускаю макрос, чтобы отобразить все строки в листе:

Function VisibleBlankCells(R As Range) As Long 
    'On Error Resume Next 
    'VisibleBlankCells = Intersect(r.SpecialCells(xlCellTypeVisible), r.SpecialCells(xlCellTypeBlanks)).Count 
    'On Error GoTo 0 

    Dim count As Long 
    Dim c As Range 
    For Each c In R 
     If c.Value = "" And c.EntireRow.Hidden = False Then 
      count = count + 1 
     End If 
    Next c 

    VisibleBlankCells = count 
End Function 

Оценка последней строки - If c.Value = "" And c.EntireRow.Hidden = False Then, после чего отладчик возвращается к Function VisibleBlankCells(R As Range) As Long. Что может быть причиной этого? Как я могу это исправить?

Answer 1

Добавить Application.calculation = xlCalculationManual в начале макроса и сбросить с помощью Application.Calculation = xlCalculationAutomatic в конце макрос