Hi All-
I have ran into an issue with hiding columns based on data valadation "Yes" / 'No" answers. I have 10 valadation boxes and each one will hide and unhide columns. If the answer is "No" then a group of columns will hide and if the answer is "Yes" will unhide. An example would be: D14 has valadation of yes/no and would control columns J:L, next would be D15 and it would control M:O columns. I have code to hide and unhide rows, but it doesn't seem to work when it is changed to columns. Please advise if there is a simple code that will handle this task.
Thanks!

Jrtdcg

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    Select Case Target.Address(0, 0)
        Case "G14": Range("J:L").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G15": Range("M:O").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G16": Range("P:R").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G17": Range("S:U").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G18": Range("V:X").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G19": Range("Y:AA").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G20": Range("AB:AE").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G21": Range("AF:AH").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G22": Range("AI:AK").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G23": Range("AL:AN").EntireColumn.Hidden = (Target.Value <> "Yes")
        Case "G24": Range("AO:AQ").EntireColumn.Hidden = (Target.Value <> "Yes")
        
     End Select
    
End Sub