mrroland,
7 years later, your post has helped me much; And, I've discovered a solution to the problem you were having. You must also include the following in the 'ThisWorkbook' module:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub