Macro para dejar visible solo determinadas columnas

Código

Sub MostrarColumnasEspecificas()

Dim C As Variant, COcultar As Variant, CMostrar As Variant

CMostrar = Array()

COcultar = Array()

For Each C In COcultar

Columns(C).EntireColumn.Hidden = True

Next C

For Each C In CMostrar

Columns(C).EntireColumn.Hidden = False

Next C

End Sub