Hi Guys,

I have an issue with this code below, I'm getting a runtime error. Also the heading are still present upon opening despite being in fullscreen mode.

Any ideas?

Many Thanks in advance!

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    chgflag = "Y"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If chgflag <> "Y" Then
     MsgBox ("You are Closing this before Generating Your Target Docs")
   End If
  Application.DisplayFullScreen = False
  Application.CommandBars("Full Screen").Visible = True
  Application.DisplayHeadings = True
  Application.CellDragAndDrop = True

End Sub

Private Sub Workbook_Open()
  Application.DisplayFullScreen = True
  Application.CommandBars("Full Screen").Visible = False
  Application.DisplayHeadings = False
  Application.CellDragAndDrop = False
End Sub
Thanks.