Application.EnableEvents not workng correctly code too long? not written correctly?

Private Sub Worksheet(Application.EnableEvents)

Application.EnableEvents = True

If [B4] = "1" Then Sheets("Abatement").Visible = True
        
ElseIf [B5] = "1" Then Sheets("Abatement").Visible = True
        Else: Sheets("Abatement").Visible = False
                
ElseIf [B6] = "1" Then Sheets("AV Equipment").Visible = True
        Else: Sheets("AV Equipment").Visible = False

ElseIf [B7] = "1" Then Sheets("TV").Visible = True
        Else: Sheets("TV").Visible = False

ElseIf [B8] = "1" Then Sheets("Electrical").Visible = True
        Else: Sheets("Electrical").Visible = False

ElseIf [B9] = "1" Then Sheets("Lighting ").Visible = True
        Else: Sheets("Lighting").Visible = False

ElseIf [B10] = "1" Then Sheets("Roofing").Visible = True
        Else: Sheets("Roofing").Visible = False

ElseIf [B11] = "1" Then Sheets("Windows").Visible = True
        Else: Sheets("Windows").Visible = False

ElseIf [B12] = "1" Then Sheets("Doors").Visible = True
        Else: Sheets("Doors").Visible = False

ElseIf [B13] = "1" Then Sheets("Fire Extinguishers").Visible = True
        Else: Sheets("Fire Extinguishers").Visible = False

ElseIf [B14] = "1" Then Sheets("Smoke Detectors").Visible = True
        Else: Sheets("Smoke Detectors").Visible = False

ElseIf [B15] = "1" Then Sheets("Sprinklers").Visible = True
        Else: Sheets("Sprinklers").Visible = False

ElseIf [B16] = "1" Then Sheets("Fire Doors").Visible = True
        Else: Sheets("Fire Doors").Visible = False

ElseIf [B17] = "1" Then Sheets("Eye Safety Shower").Visible = True
        Else: Sheets("Eye Safety Shower").Visible = False

ElseIf [B18] = "1" Then Sheets("Oxygen Sensor").Visible = True
        Else: Sheets("Oxygen Sensor").Visible = False

ElseIf [B19] = "1" Then Sheets("Building Management System").Visible = True
        Else: Sheets("Building Management System").Visible = False

ElseIf [B20] = "1" Then Sheets("Alarm Panels").Visible = True
        Else: Sheets("Alarm Panels").Visible = False

ElseIf [B21] = "1" Then Sheets("Sound Masking - PA").Visible = True
        Else: Sheets("Sound Masking - PA").Visible = False

ElseIf [B22] = "1" Then Sheets("Kitchen").Visible = True
        Else: Sheets("Kitchen").Visible = False

ElseIf [B23] = "1" Then Sheets("Elevators").Visible = True
        Else: Sheets("Elevators").Visible = False

ElseIf [B24] = "1" Then Sheets("Overhead Doors").Visible = True
        Else: Sheets("Overhead Doors").Visible = False

ElseIf [B25] = "1" Then Sheets("Hoods").Visible = True
        Else: Sheets("Hoods").Visible = False

ElseIf [B26] = "1" Then Sheets("Personnel Move").Visible = True
        Else: Sheets("Personnel Move").Visible = False

ElseIf [B27] = "1" Then Sheets("Furniture").Visible = True
        Else: Sheets("Furniture").Visible = False

ElseIf [B28] = "1" Then Sheets("Bathrooms").Visible = True
        Else: Sheets("Bathrooms").Visible = False

ElseIf [B29] = "1" Then Sheets("Drawings").Visible = True
        Else: Sheets("Drawings").Visible = False

ElseIf [B30] = "1" Then Sheets("Hoods").Visible = True
        Else: Sheets("Hoods").Visible = False

ElseIf [B31] = "1" Then Sheets("VAV Diffusers-Thermal Diffusers").Visible = True
        Else: Sheets("VAV Diffusers-Thermal Diffusers").Visible = False

ElseIf [B32] = "1" Then Sheets("Heating").Visible = True
        Else: Sheets("Heating").Visible = False

ElseIf [B33] = "1" Then Sheets("Cooling").Visible = True
        Else: Sheets("Cooling").Visible = False

ElseIf [B34] = "1" Then Sheets("Exhaust").Visible = True
        Else: Sheets("Exhaust").Visible = False

ElseIf [B35] = "1" Then Sheets("Process Cooling").Visible = True
        Else: Sheets("Process Cooling").Visible = False

ElseIf [B36] = "1" Then Sheets("Data Cable").Visible = True
        Else: Sheets("Data Cable").Visible = False

ElseIf [B37] = "1" Then Sheets("Printing").Visible = True
        Else: Sheets("Printing").Visible = False

ElseIf [B38] = "1" Then Sheets("Wireless").Visible = True
        Else: Sheets("Wireless").Visible = False

ElseIf [B39] = "1" Then Sheets("IDF -MDF").Visible = True
        Else: Sheets("IDF -MDF").Visible = False

ElseIf [B40] = "1" Then Sheets("Cameras").Visible = True
        Else: Sheets("Cameras").Visible = False

ElseIf [B41] = "1" Then Sheets("Card Reader").Visible = True
        Else: Sheets("Card Reader").Visible = False

ElseIf [B42] = "1" Then Sheets("Alarms").Visible = True
        Else: Sheets("Alarms").Visible = False

ElseIf [B43] = "1" Then Sheets("Parking Lot").Visible = True
        Else: Sheets("Parking Lot").Visible = False

ElseIf [B44] = "1" Then Sheets("Landscaping").Visible = True
        Else: Sheets("Landscaping").Visible = False

ElseIf [B45] = "1" Then Sheets("Gates and Fencing").Visible = True
        Else: Sheets("Gates and Fencing").Visible = False

ElseIf [B46] = "1" Then Sheets("Sidewalks").Visible = True
        Else: Sheets("Sidewalks").Visible = False

ElseIf [B47] = "1" Then Sheets("Irrigation").Visible = True
        Else: Sheets("Irrigation").Visible = False

ElseIf [B48] = "1" Then Sheets("Steam").Visible = True
        Else: Sheets("Steam").Visible = False

ElseIf [B49] = "1" Then Sheets("Natural Gas").Visible = True
        Else: Sheets("Natural Gas").Visible = False

ElseIf [B50] = "1" Then Sheets("Compressed Air").Visible = True
        Else: Sheets("Compressed Air").Visible = False

ElseIf [B51] = "1" Then Sheets("Lab Gases").Visible = True
        Else: Sheets("Lab Gases").Visible = False

ElseIf [B52] = "1" Then Sheets("Potable Water").Visible = True
        Else: Sheets("Potable Water").Visible = False

ElseIf [B53] = "1" Then Sheets("Non-Potable Water").Visible = True
        Else: Sheets("Non-Potable Water").Visible = False

ElseIf [B54] = "1" Then Sheets("DI Water").Visible = True
        Else: Sheets("DI Water").Visible = False
       
End If
End Sub