Macro ocultar columnas

Soy nuevo con las macros y necesito me ayudéis en el siguiente supuesto. Tengo una hoja con muchas columnas con un encabezado de un nombre del servicio cada uno... Servicio1, servicio2, servicio3 etc... Estos están por ejemplo en el rango FF2:GZ2 y para abajo tienen sus respectivos horarios ... Pues bien quiero que en una celda, por ejemplo a1, escriba el nombre de servicio 1 y oculte todas las demás columnas que no sean servicio1, y si pongo servicio2, que oculte todas las que no sean servicio 2 y así con todas. Espero con ansia vuestras respuestas