Al expandir la pantalla y ejecutar VBA, ambas pantallas se congelan.

Cree una nueva instancia de Excel.Application.

Luego use la nueva instancia para realizar la operación:

Sub StartTest()

Dim xlApp As Excel.Application

Dim xlWB Como Excel .Workbook

Establecer xlApp = Nueva aplicación Excel.

Establecer xlWB = xlApp.Workbooks.Open("C:\BK1.xls")

xlApp.Visible = Verdadero

xlApp.ScreenUpdating = Falso

xlApp.Run "Prueba"

xlApp.ScreenUpdating = Verdadero

Fin Sub