Sherlock, Can You Find Cause of Macro Error on FileOpen

SHERLOCK WORTHY PROBLEM: Is there a Sherlock that can solve this problem. When workbook is opened an error box pops up noting that it is "unable to get the Hidden property of the range class" pertaining to a line in the code. The mystery is rooted in an unexplained diversion of code in the Workbook_Open module which is tracked through the code below. Why is code diverted? How to remedy? File is attached. Also, see background information.

Option Explicit
Sub Workbook_Open()
Dim wks As Worksheet
    Application.ScreenUpdating = False
    Call UnprotectSheetsAll
    'Call ToggleAllFilters_OFF
    For Each wks In Worksheets
        wks.Activate
        Range("F3").Select  'Insures FreezePanes is set
        ActiveWindow.FreezePanes = True
        Range("A2").Select  'Scrolls sheet to designated range.
        ActiveWindow.ScrollRow = ActiveCell.Row
        ActiveWindow.Zoom = 68  'Sets desired percentage window zoom rate
        ActiveWindow.RangeSelection.Columns("B:B").AutoFilter Field:=1, Visibledropdown:=True  ‘When stepping through this code, on the third interation (NetDiff _
sheet) the code abruptly goes to Public Sub cboGotoProgramsSelection_NetDiff_Click(), leaving the balance of the_
macro not completed. The code then calls Show_cboGotoProgramsSelection_NetDiff then Show_All_Data and finally Show_All_Data_Budget 
        Next wks  ‘The rest of the code in module for NetDiff is not completed.
    Call Show_All_Data
    Call ProtectSheetsAll
    Worksheets("Budget").Select
    Application.ScreenUpdating = True
End Sub

Public Sub cboGotoProgramsSelection_NetDiff_Click()  
    Call Show_cboGotoProgramsSelection_NetDiff
    Worksheets("NetDiff").Select
End Sub

Sub Show_cboGotoProgramsSelection_NetDiff()
''Hides programs columns, except for selected Program Name. Case arguments reference named ranges _
    in worksheet. ComboBox list is located at "C220". Note: program names (shown in F1:W1) may change _
    so they are linked in ComboBox list to range names that do not change, i.e.: _
    numberone, numbertwo, etc.
Dim wks As Worksheet, S As String

    Worksheets("NetDiff").Activate
    'If Sheet3.cboGotoProgramsSelection_NetDiff.ListIndex = 0 Then
        'Call ShowAllPrograms
    'Else
    'End If
       
    Select Case Sheet3.cboGotoProgramsSelection_NetDiff.Value

    Case Is = "NumberZero"
        Call Show_All_Data  ‘This line calls Show_All_Data_Budget() below
    Case Is = "NumberOne"
        For Each wks In ActiveWorkbook.Worksheets
        ……..

Option Explicit
Sub Show_All_Data()
    Show_All_Data_Budget
    Show_All_Data_Actual
    Show_All_Data_NetDiff
End Sub

Sub Show_All_Data_Budget()
    Application.ScreenUpdating = False
    Call ProtectSheet_Budget_OFF
    If Sheet1.Cells.EntireColumn.Hidden = True Then 
        Sheet1.Cells.EntireColumn.Hidden = False  'Unhides any hidden columns in worksheet  'ERROR: Unable to get the Hidden property of the range class.
    Else
        Sheet1.Cells.EntireColumn.Hidden = False  'Unhides any hidden columns in worksheet
    End If
    With Sheet1.cboGotoProgramsSelection_Budget  'resets index list to first item
        .ListIndex = 0
    End With
    With Sheet1.cboGotoAccountsSelection_Budget  'resets index list to first item
        .ListIndex = 0
    End With
    Call ProtectSheet_Budget_OFF
    'ActiveCell.SpecialCells(xlLastCell).Select 'Selects last cell.
    Range("X126").Select
    Application.Goto Reference:=ActiveSheet.Range("A2"), Scroll:=True
    'Sheet1.ToggleBudgetFilter.Visible = True
    ''Call Toggle_Budget_Filter_OFF
    Worksheets("Budget").Select
    Call ProtectSheet_Budget_ON
    Application.ScreenUpdating = True
End Sub

BACGROUND: This is a budget summary workbook with three sheets. Sheet 1 shows Budget income & expenses. Sheet 2 shows Actual income & expenses. Sheet 3 shows the NetDiff of sheets 1 & 2. Each sheet is identical in programs represented and accounts structure. (Programs may change but accounts do not.) Filtering criteria of accounts with data is applied via formulas in Col B. Data can be filtered with the AutoFilter arrow in Col B. (To facilitate debugging, a filter toggle button on each sheet has been hidden and associated code disabled until the problem discussed in this query is resolved.)

VBA code facilitates data entry. To enter data, select Budget or Actual tab. (Data can be reviewed but not entered into the NetDiff sheet.) Using the comboboxes on the sheet, select a program. Then select an accounts catagory. There is a Show All and Print button on each sheet. The sheets are protected.

A notable feature of this workbook is that actions on one sheet are reflected on the other two sheets. For example, if program X is selected on any sheet (thereby hiding other programs), that action is replicated on the other two sheets. Same with selection of account catagories, filtering data and restoring data to default (fully revealed) state.

Note: Tasks remaining include reinstating hidden filter toggle buttons and associated code, fixing incorrect formulas in NetDiff sheet and final debugging and testing including print macros.

In normal module add:

Public bNoEvents As Boolean

In module for NetDiff sheet change code to:

Public Sub btnShowAllColumnsRows_NetDiff_Click()
   If bNoEvents Then Exit Sub
''Show all columns & rows
    Call Show_All_Data
    Worksheets("NetDiff").Select
End Sub

Public Sub cboGotoProgramsSelection_NetDiff_Click()
   If bNoEvents Then Exit Sub
    Call Show_cboGotoProgramsSelection_NetDiff
    Worksheets("NetDiff").Select
End Sub

Public Sub cboGotoAccountsSelection_NetDiff_Click()
   If bNoEvents Then Exit Sub
    Call cboGotoAccounts_Selection_NetDiff
    Worksheets("NetDiff").Select
End Sub

In ThisWorkbook module:

Sub Workbook_Open()
   Dim wks As Worksheet
   bNoEvents = True
    Application.ScreenUpdating = False
    Call UnprotectSheetsAll
    'Call ToggleAllFilters_OFF
    For Each wks In Worksheets
        wks.Activate
        Range("F3").Select  'Insures FreezePanes is set
        ActiveWindow.FreezePanes = True
        Range("A2").Select  'Scrolls sheet to designated range.
        ActiveWindow.ScrollRow = ActiveCell.Row
        ActiveWindow.Zoom = 68  'Sets desired percentage window zoom rate
        ActiveWindow.RangeSelection.Columns("B:B").AutoFilter Field:=1, Visibledropdown:=True
        Next wks
    Call Show_All_Data
    Call ProtectSheetsAll
    Worksheets("Budget").Select
    bNoEvents = False
    Application.ScreenUpdating = True
 
End Sub

Izandol, you receive the SHERLOCK AWARD!! Your code solved the mystery that has puzzled me for too many hours. Thank you!!

Izandol, I would like to know why your code works. How did you know to define & use variable "Public bNoEvents As Boolean" in the code?