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

Resetting Screen to Full
 

Ignore me, I'm bonkers!!

P