This code uses the top level Application object to minimize the main Excel window.
Sub MinimizeExcel() Application.WindowState = xlMinimized End Sub