Hello. The following code below as help me to minimize all the open windows (including none Excel windows). The problem I have now is that I need to keep one of the application in foreground.
For example, once I minimize all windows I would like to have "softwareABC" on the desktop and highlighted.
Please let me know if I am not clear enough. Thank you,
sub test()
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll
Application.Wait (Now + TimeValue("0:00:02"))
Set objShell = Nothing
end sub
For example, once I minimize all windows I would like to have "softwareABC" on the desktop and highlighted.
Please let me know if I am not clear enough. Thank you,
sub test()
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll
Application.Wait (Now + TimeValue("0:00:02"))
Set objShell = Nothing
end sub
