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