Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll