Dim objShell
Set objShell = CreateObject("Shell.Application")
objshell.ShutdownWindows
Set objShell = nothing