Hide columns depending on a text selection in a drop-down list

Hi,

I have a worksheet where a selection in a drop down list needs to automatically hide columns depending on the selection. I cant quite nail it and have been trying different suggestion from other threads without any luck.
The value is choosen in cell B2 and in the sheet code I have written which columns needs to be hidden after each selection as you can see in the attachment.

My issue is that nothing happens when I choose from the drop down and I dont know why as it has worked before with automatic updates.

Hope someone with a sharp brain can crack this otherwise the computer goes out the window.

I change the type of object only because I did not want to change too many things in your code, then the execution of the code occurs when you change the drop down selection.
It will not work when you select Projects, Showroom or Internet, because you do not have any columns with those headers the rest hide on command.

You are the best!!! Tried a lot of different solutions but your's work and with a small modification I got projects, showroom and internet to function as well. Thanks a lot of your help.