Código:
Option Explicit
'Aprendiendo ẽXcel365
'https://www.aprendiendoexcel365.com/
'https://www.youtube.com/@AprendiendoeXcel365
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