Ocultar columnas marcadas con un color

Descargue el fichero ocultar_columnas_amarillas.xlsm

Disponemos de una tabla en la que la fila 5 hace de cabecera y en ella hemos marcado de color amarillo ciertas celdas cuyas columnas nos gustaría ocultar. Hemos desarrollado una macro en VBA para Excel que logra ocultar las columnas amarillas.

Luego hemos creado otra macro que muestra todas las columnas. Se ejecutan con sendos botones que figuran al inicio de la hoja.

Sub Oculta_columnas_amarillas()
Dim n As Integer 'ultima columna
Dim R As Range
Dim i As Integer
Rem utiliza la fila 5 para localizar las amarillas
Range("A5").Select
Set R = ActiveCell.SpecialCells(xlLastCell)
n = R.Column
For i = 1 To n
    If Cells(5, i).Interior.ColorIndex = 6 Then
        Columns(i).Hidden = True
    End If
Next i
End Sub

Sub Muestra_columnas()
Cells.EntireColumn.Hidden = False
Range("A5").Select
End Sub