Increase speed Hiding Columns

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

Please Login or Register  to view this content.

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

Thanks Ben, I appreciate your response very much. It didn't seem to help speed-wise, however, sorry to report. I wonder if there are simply too many formulas, lookups, etc floating through this file to make this approach viable. It's a tool that has been in use for a few years by several people and it's a bit complicated.