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