Hace poco me preguntaban si existía alguna manera de minimizar todas las aplicaciones abiertas independientes de Excel e incluyendo las sesiones de Excel también.

Aquí les comparto una rutina con la que pueden lograr hacerlo:

'****************************************'
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com              '
' Excel VBA Developer                    '
'****************************************'

Sub MinimizarTodasAplicacionesAbiertas()
Dim WSHshell As Object, Shell As Object
    
  Set WSHshell = CreateObject("WScript.Shell")
  Set Shell = CreateObject("Shell.Application")
    
    Shell.MinimizeAll
 
  Set WSHshell = Nothing
  Set Shell = Nothing

End Sub