Resetting Screen to Full
You need to set up a variable to hold the setting on startup:
sub MySub()
Dim isFullScreen as boolean
isFullScreen = Application.DisplayFullScreen
Application.DisplayFullScreen = True
'*******************
'CODE GOES HERE
'*******************
Application.DisplayFullScreen = isFullScreen
End Sub
P
"Phil Hageman" wrote in message
...
I have an Auto_Open() sub that sets screen size to full
with the following:
Application.DisplayFullScreen = True
When the user exits the workbook, how do I reset full
screen to False?
Thanks,
Phil
|