Increase speed Hiding Columns

I'm using a ListBox linked to a cell (KQ5) to hide/unhide columns using this macro:

Private Sub ListBox2_Click()
  Dim cel As Range, Utilities As Range
  Dim s As String
    Application.ScreenUpdating = False
  Set Utilities = Sheets("Q1Sales").Range("S5:KO5")
  s = ListBox2.Value
  If s = "" Then
    Utilities.EntireColumn.Hidden = False
  Else
    For Each cel In Utilities
      cel.EntireColumn.Hidden = Not cel.Value = s
    Next cel
    Application.ScreenUpdating = True
  End If
  Utilities.Parent.Activate
End Sub

My spreadsheet is about 250 columns and 150 rows. This macro works but it is unbearably slow, like 10-15 seconds. What can I do to increase its speed down to 1-2 seconds? Thanks. David