I am using Excel 2000 (from the Office 2000 SR-Professional package) and this is the code where screenupdating = false is ignored Private Sub Workbook_Open() Dim str Driver As String Dim driver File As Workbook str Driver = Worksheets("Form"). Value If Len(Dir(str Driver, vb Directory)) = 0 Then str Driver = This Workbook.
Path & "\" & str Driver End If If Len(Dir(str Driver)) = 0 Then ' file does not exist * Msg Box "File not found: " & str Driver, vb Exclamation, "Error! Get Open Filename("Excel Workbooks,*.xls, All Files, *.*", _ 1, "Select the report compiler file.") If str Driver = "False" Then Msg Box "No driver file loaded; reports will not work.", vb Exclamation, "Error! Screen Updating = False Set driver File = Workbooks.
It is so much easier if you attach an example workbook containing the code.
I have attempted to edit your code but I cannot test it.
You can save the checklist and it copies the information to a data sheet in a separate tab. You should be able to solve this by setting screenupdating to false on your first line, the modification is shown below.
Everything works perfectly except when saving the information the Application. I've tried moving it around in different areas, but nothing seems to work.
Copy On Error Resume Next With Worksheets("Database"). Select On Error Go To 0 If Not Database_Date Is Nothing Then Application. Protect Password:="young C" Else Msg Box ("Please be sure all information is correct before saving it.") End If If Not Application. Screen Updating = b Scr Update End Sub Private Sub Workbook_Open() Worksheets("Main Menu").