ComboBox Linked Cell change does not trigger hiding/unhiding of columns

Hi David,

Try this in the Scorecard_New module. It worked for me. If it doesn't work, we have to:
a. Verify the properties in the Combobox (i.e. linked cell, and make sure it triggers the GlC_Code_Change() event()).
b. Make sure the Sheet isn't corrupt.

The Worksheet_Change() event is not triggered when 'U2' changes, because a formula changes the value of 'U2'. However, when the ComboBox changes value, the GLC_Code_Change() event is triggered. I had to make minimal changes to make it work. Changes in red.

Option Explicit

Private Sub GLC_Code_Change()
  Debug.Print "GLC_Code_Change at " & Now
        Application.ScreenUpdating = False
        Select Case GLC_Code.Value
        Case Is = "Designer GLC 1"
            Range("B:B").EntireColumn.Hidden = False
            Range("C:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 2"
            Range("C:C").EntireColumn.Hidden = False
            Range("B:B").EntireColumn.Hidden = True
            Range("D:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 3"
            Range("D:D").EntireColumn.Hidden = False
            Range("B:C").EntireColumn.Hidden = True
            Range("E:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 4"
            Range("E:E").EntireColumn.Hidden = False
            Range("B:D").EntireColumn.Hidden = True
            Range("F:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 5"
            Range("F:F").EntireColumn.Hidden = False
            Range("B:E").EntireColumn.Hidden = True
            Range("G:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 6"
            Range("G:G").EntireColumn.Hidden = False
            Range("B:F").EntireColumn.Hidden = True
            Range("H:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 7"
            Range("H:H").EntireColumn.Hidden = False
            Range("B:G").EntireColumn.Hidden = True
            Range("I:R").EntireColumn.Hidden = True
        Case Is = "Designer GLC 8"
            Range("I:I").EntireColumn.Hidden = False
            Range("B:H").EntireColumn.Hidden = True
            Range("J:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 1"
            Range("J:J").EntireColumn.Hidden = False
            Range("B:I").EntireColumn.Hidden = True
            Range("K:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 2"
            Range("K:K").EntireColumn.Hidden = False
            Range("B:J").EntireColumn.Hidden = True
            Range("L:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 3"
            Range("L:L").EntireColumn.Hidden = False
            Range("B:K").EntireColumn.Hidden = True
            Range("M:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 4"
            Range("M:M").EntireColumn.Hidden = False
            Range("B:L").EntireColumn.Hidden = True
            Range("N:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 5"
            Range("N:N").EntireColumn.Hidden = False
            Range("B:M").EntireColumn.Hidden = True
            Range("O:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 6"
            Range("O:O").EntireColumn.Hidden = False
            Range("B:N").EntireColumn.Hidden = True
            Range("P:R").EntireColumn.Hidden = True
        Case Is = "Engineer GLC 7"
            Range("P:P").EntireColumn.Hidden = False
            Range("B:O").EntireColumn.Hidden = True
            Range("Q:R").EntireColumn.Hidden = True
        Case Is = "Engineer PLDL"
            Range("Q:Q").EntireColumn.Hidden = False
            Range("B:P").EntireColumn.Hidden = True
            Range("R:R").EntireColumn.Hidden = True
        End Select
        Application.ScreenUpdating = True
End Sub

Lewis