Dim Sh As Object Set Sh = CreateObject("Shell.Application") Sh.MinimizeAll Set Sh = Nothing Otra: Mediante la API «keybd_event» puedes simular la acción del teclado cuando se pulsa conjuntamente la tecla de Windows + M, de manera que se minimicen todas las ventanas: Private Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Const KEYEVENTF_KEYUP = &H2 Const VK_LWIN = &H5B ' Código de la tecla Windows Call keybd_event(VK_LWIN, 0, 0, 0) ' Código de la tecla "M" Call keybd_event(77, 0, 0, 0) ' Simula la liberación de la tecla Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)