Help!
Can't quite figure out why, but this code doesn't stop the screen from
updating. As it cycles through the For statement, the screen's updating.



Private Sub Workbook_Open()
Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets
sh.Protect "unlock", , , userinterfaceonly:=True
sh.EnableSelection = xlUnlockedCells
Next sh

Worksheets("DataWorksheet").Visible = False
Worksheets("Information").Activate

'set page up for display
GoToForm

Application.ScreenUpdating = True

End Sub