Macro para ocultar columnas según contenido de celda

Si me pueden ayudar:

Tengo una serie de personas que están ordenados por filas, y en las columnas hay horas (de 8:00 a 9:00, de 9:00 a 10:00, y así hasta las 19:00 hrs, 11 horas por día día hábil de la semana, o sea, 55 columnas). Para cada persona, las celdas de cada columna puede existir una "X" que indica que en esa hora no está disponible o puede estar "Vacía", o sea, está disponible en esa hora. La idea es que al hacer clic en el nombre de cualquiera se oculten automáticamente las columnas que contengan una "X" para hacer visibles sólo las columnas que están vacías.

Desde ya, muy agradecido.