Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Transform all windows into icons

Sub ShowWindowsAsIcons()   Dim win As Object   For Each win In Windows     If win.Visible Then win.WindowState = xlMinimized   Next win End Sub