Full Screen code

[RichieF]

I currently use the code below to make a spreadsheet go to full screen mode when opened...

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

However, I want to make the screen return to normal view when the spreadsheet is closed. Someone did give me some code to add to the end of that listed above, but it didn't work (and i've since lost it !!). Can anyone help ?? Cheers.

 

[Ivan F Moala]

On 2002-05-07 01:32, RichieF wrote:
I currently use the code below to make a spreadsheet go to full screen mode when opened...

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

However, I want to make the screen return to normal view when the spreadsheet is closed. Someone did give me some code to add to the end of that listed above, but it didn't work (and i've since lost it !!). Can anyone help ?? Cheers.

<pre/>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub
</pre>