title: Application.ScreenUpdating won't change to false
body: <p>I'm pretty new to VBA, but I've found my way around by reading through these forums. I've never had a problem with Application.ScreenUpdating not working and after researching online, I can't find an answer to my problem. </p>
  
  <p>I've created a Daily Checklist application in excel that gives a month view in the Daily Checklist. The tasks line up in rows and you simply select yes, no or N/a, for that task for the day on the calendar. You can save the checklist and it copies the information to a data sheet in a separate tab. Everything works perfectly except when saving the information the Application.Screenupdating isn't working and the user ends up seeing the flickering and jumping back and forth between the data sheet and the calendar view.</p>
  
  <p>Any ideas or guidance on why Application.ScreenUpdating is not changing to false? I've tried moving it around in different areas, but nothing seems to work.</p>
  
  <p>Here's the Save checklist sub:</p>
  
  <pre><code>Sub Save_Checklist()
  
  Dim Checklist_Date
  Dim Completed As Long
  Dim Left_to_Complete As Long
  Dim Database_Date As Range
  Dim Database_Row As Long
  Dim bScrUpdate
  
  bScrUpdate = Application.ScreenUpdating
  If bScrUpdate = True Then Application.ScreenUpdating = False
  
  Worksheets("Database").Unprotect Password:="youngC"
  
  If MsgBox("This button will save this month's checklist data into the database. All previous information will be overwritten. Would you like to continue?", vbYesNoCancel, "Reset the Calender") = vbYes Then
  
  Checklist_Date = Worksheets("Daily Checklist").Range("E4").Value
  Add_to = Worksheets("Daily Checklist").Range("AL1").Value
  Range("E55").Select
  ActiveCell.Resize(2, Add_to).Select
  Selection.Copy
  
      On Error Resume Next
      With Worksheets("Database").Activate
          Range("A1:A366").Select
          Selection.Find(What:=Checklist_Date, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
              xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
              , SearchFormat:=False).Select
      On Error GoTo 0
          If Not Database_Date Is Nothing Then Application.Goto Database_Date, True
      End With
  
  Selection.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=True
  
  
  Worksheets("Database").Protect Password:="youngC"
  
  Else
      MsgBox ("Please be sure all information is correct before saving it.")
  End If
  
  If Not Application.ScreenUpdating = bScrUpdate _
      Then Application.ScreenUpdating = bScrUpdate
  
  End Sub
  </code></pre>
  
  <p>This is the code I have running upon the workbook opening (I have grouping in the "Add Tasks to Month's Calendars" sheet):</p>
  
  <pre><code>Private Sub Workbook_Open()
      Worksheets("Main Menu").Activate
      With Worksheets("Add Tasks to Month's Calendars")
      .EnableOutlining = True
      .Protect Password:="youngC", _
      Contents:=True, UserInterfaceOnly:=True
      End With
  End Sub
  </code></pre>
  
  <p>Any help at all would be greatly appreciated.</p>
  
  <p>Thanks,
  Chris</p>