Excel 2013 и 2016 мерцают, когда ScreenUpdating = False и создает новую скрытую книгу

Если вы запустите код ниже в Excel 2013 или Excel 2016, это заставит Excel мерцать.

Кто-нибудь есть предложения о том, как остановить мерцание?

Sub FlickerTestMain() Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False FlickerTestHelper Application.ScreenUpdating = True Application.EnableEvents = True Application.DisplayAlerts = True End Sub Sub FlickerTestHelper() Dim currentWorkbook As Workbook, newWorkbook As Workbook Set currentWorkbook = Application.ActiveWorkbook Set newWorkbook = Application.Workbooks.Add(xlWBATWorksheet) newWorkbook.Windows(1).Visible = False currentWorkbook.Activate newWorkbook.Worksheets(1).Range("a1:Z10000").Value2 = "test" newWorkbook.Close False End Sub 

Давайте будем гением компьютера.