Si necesita ocultar ciertas columnas usando un botón, puede usar este código. Incluso cambiará el texto del botón de comando a Ocultar columnas y luego lo cambiará nuevamente a Mostrar columnas.
Sub Hide_C ()
Dim C_ell como rango
ActiveSheet.Shapes.Range (Array ("Botón 2")). Seleccione
Si Selection.Characters.Text = "Mostrar columnas", entonces
Columns.Hidden = False
Selection.Characters.Text = "Ocultar columnas"
Demás
Para cada C_ell en rango ("B1", Cells (1, Columns.Count) .End (xlToLeft))
Si C_ell = "x" Entonces C_ell.Columns.Hidden = True
próximo
Selection.Characters.Text = "Mostrar columnas"
Terminara si
Rango ("A2"). Seleccionar
End Sub