Отключение визуализации работы макросов в VBA

Небольшая процедурка, которая умеет вкл/выкл визуализацию работы макроса.
Очень помогает сократить время отработки макроса на больших объемах данных.

Код

Sub Vis(flag As Boolean)     With Application         .Calculation = IIf(flag, xlCalculationAutomatic, xlCalculationManual)         .ScreenUpdating = flag         .EnableEvents = flag         .DisplayStatusBar = flag         .DisplayAlerts = flag     End With End Sub

Пример вызова

Call Vis(False) Call Vis(True)

Ну и кусок кода для вывода информационного сообщения в статус бар.

Код

Application.StatusBar = "Текст сообщения" DoEvents