cultar y mostrar por codigo

Hola a todos:

Podrias hacer los siguiente lo siguiente:
Primero colocas un botón de comando del "cuadro de controles" de Visual
Basic y en el evento Click pones lo siguiente:

Private Sub CommandButton1_Click()
If CommandButton1.caption = "Abrir" then
Range("L1:AE1").Select
Selection.EntireColumn.Hidden = False
Range("L1").Select
CommandButton1.caption= "Cerrar"
Elseif CommandButton1.caption = "Cerrar then
Range("M5:AD5").Select
Selection.EntireColumn.Hidden = True
Range("L1").Select
CommandButton1.Caption= "Abrir"
End If

End Sub

Esto debe funcionar bien

Saludos
René

Daniel S.L. wrote:

Hola a todos
tengo el siguiente código de de la grabadora de macros

Sub oculta_columna()

Range("M5:AD5").Select
Selection.EntireColumn.Hidden = True
Range("L1").Select
End Sub
Sub Muestra_Columna()

Range("L1:AE1").Select
Selection.EntireColumn.Hidden = False
Range("L1").Select
End Sub

como puedo hacer una sola macro osea que al darle un click muetre las columnas y al
darle otro click las cierre

Gracias
Un saludo,
Daniel