ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Ah, I think... (https://www.excelbanter.com/excel-programming/271042-ah-i-think.html)

Arne[_2_]

Ah, I think...
 
Hmm, the statement

Application.WindowState = xlMinimized

did not result in all windows getting minimized. The
following does minimize all Excel workbook windows. But I
still do not know if it speeds things up.

Dim wkb As Workbook
Dim OldDispAlerts As Boolean
Dim w As Window

OldDispAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
For Each w In Application.Windows
w.WindowState = xlMinimized
Next w
For Each wkb In Workbooks
If Not (wkb Is ThisWorkbook) Then
wkb.Close SaveChanges:=False
End If
Next wkb
Application.DisplayAlerts = OldDispAlerts



All times are GMT +1. The time now is 07:53 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com