Try:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C10:C13")) Is Nothing Then Exit Sub
Columns.Hidden = 0
If Target.Row = 10 Then
Select Case Target.Value
Case Is = "Yes"
Range("H:H,K:K,N:N,Q:Q,T:T,W:W").EntireColumn.Hidden = False
Case Is = "No"
Range("H:H,K:K,N:N,Q:Q,T:T,W:W").EntireColumn.Hidden = True
End Select
ElseIf Target.Row = 11 Then
Select Case Target.Value
Case Is = "Yes"
Range("I:I,L:L,O:O,R:R,U:U,X:X").EntireColumn.Hidden = False
Case Is = "No"
Range("I:I,L:L,O:O,R:R,U:U,X:X").EntireColumn.Hidden = True
End Select
ElseIf Target.Row = 12 Then
Select Case Target.Value
Case Is = "Yes"
Range("J:J,M:M,P:P,S:S,V:V,Y:Y").EntireColumn.Hidden = False
Case Is = "No"
Range("J:J,M:M,P:P,S:S,V:V,Y:Y").EntireColumn.Hidden = True
End Select
ElseIf Target.Row = 13 Then
Select Case Target.Value
Case Is = "Yes"
Range("E:E,F:F,G:G").EntireColumn.Hidden = False
Case Is = "No"
Range("E:E,F:F,G:G").EntireColumn.Hidden = True
End Select
End If
End Sub
Bookmarks