Mega Code Archive
Display application in full screen mode
Sub FullScreen_Icon()
If Application.DisplayFullScreen Then
Application.DisplayFullScreen = False
Application.WindowState = xlMinimized
Else
Application.DisplayFullScreen = True
End If
End Sub