Sub FullScreen_Icon() If Application.DisplayFullScreen Then Application.DisplayFullScreen = False Application.WindowState = xlMinimized Else Application.DisplayFullScreen = True End If End Sub