在前后加上Application.ScreenUpdating = False
比如：
Sub 没有禁闪屏()
Application.ScreenUpdating = False
Dimx, t
t =Timer
Forx = 1 To 100
Sheets(2).Select
Next x
[a1] = Timer - t
Application.ScreenUpdating =true
End Sub
不用activeworkbook就可以避免了。
直接用工作簿的名称引用
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024