Для отправки комментария вам необходимо авторизоваться.
Application.Calculation = xlCalculationManual
