Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$3" Then
    Worksheets("Sheet1").Range("Fruit," _
    & "Months,Colour").EntireColumn.Hidden = Target.Value = "CustomView"
End If

If Target.Address = "$B$3" Then
   Worksheets("Sheet1").Range("Colour,Number" _
   & "Months").EntireColumn.Hidden = Target.Value = "Custom2View"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$3" Then
    Worksheets("Sheet1").Range("Fruit,Months,Colour").EntireColumn.Hidden =
Target.Value = "CustomView"
End If
End Sub