Edición de esquemas

[lu_argenitna]

Hola!
Quería saber si es posible poner títulos a los esquemas que uno hace en excel. Es decir, se puede poner algo al lado de la crucecita para deplegar el esquema?
Y otra, hay un comando en visual para desplegar o ocultar un esquema?
Necesito esto porque la gente que va a recibir el archivo no es muy avanzada en excel y no creo que entiendan que significa una crucecita en la barra.
Muchas gracias!!!!

 

[lu_argenitna]

Lo puse y en vez de ocultar me lo muestra. Es decir, yo grabo algo con el quema oculto (por lo tanto con el signo + habilitado) y al correr la macro me aparece desplegado.
Por que sera?

 

[Greg Truby]

Pon lo que tiene como macro.

 

[lu_argenitna]

El código es:
Sheets("Base").Select
ActiveWindow.FreezePanes = False
ActiveSheet.Outline.ShowLevels 1
Columns("a:z").Select
Selection.EntireColumn.Hidden = False
Columns("d:d").Select
Selection.EntireColumn.Hidden = True
Columns("e:e").Select
Selection.EntireColumn.Hidden = True
Columns("v:w").Select
Selection.EntireColumn.Hidden = True
Range("c3").Select
ActiveWindow.FreezePanes = True
Range("b2").Select
If Range("f1").Value = 1 Then
Columns("u:u").Select
Selection.EntireColumn.Hidden = True
Range("b2").Select
ElseIf Range("f1").Value = 2 Then
Range("b2").Select
End If

Y mi intencion es que el esquema se muestre solo si lo necesita el que acciona la macro.
Muchisimas gracias!!!!

 

[Greg Truby]

Luciana,

Pruebe el siguiente:

    Sheets("Base").Select
    ActiveWindow.FreezePanes = False
    Columns("a:z").EntireColumn.Hidden = False
    Columns("d:e").EntireColumn.Hidden = True
    Columns("v:w").EntireColumn.Hidden = True
    Range("c3").Select
    ActiveWindow.FreezePanes = True
    Columns("u:u").EntireColumn.Hidden = (Range("f1") = 1)
    ActiveSheet.Outline.ShowLevels 1
    Range("b2").Select

¿Le sirve? ¿O siempre no le da los resultados deseados?

 

[lu_argenitna]

No, no funciona. Gracias a todos por la ayuda, finalmente decidí explicarle a la gente como funcionan los símbolos.