Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B17,B18")) Is Nothing Then Exit Sub
Columns(Switch(Target.Address = "$B$17", "I:I", Target.Address = "$B$18", "J:J")).EntireColumn.Hidden = Target.Value * 100 = 0
End Sub