Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
.
Hola amado pueblo.
Como siempre, la mayoría de aportes surgen a partir de una consulta, en este caso se trata de esta consulta publicada en Todo Excel: http://www.todoexcel.com/foro-excel/otras-consultas/posible-anidar-hojas-libro-t32338.html
Se trata de un formulario que permite navegar entre las hojas con un esquema de árbol con independencia del nombre de la hoja.
Este aporte solo tiene sentido si hay un gran número de hojas y/o con nombres complicados de recordar y de localizar.
Cada hoja se puede asociar a un punto de menú dentro del árbol y también se le puede asociar un icono.
Cuando hagais click en un punto de menú, que tenga asociado el nombre de una hoja, esta se seleccionará y el formularios se ocultará.
Existen 3 hojas, Menú, Hojas e Iconos, que pueden ocultarse una vez están correctamente informadas.
En el adjunto, a parte de las 3 hojas mencionadas, encontrareis 39 hojas mas.
Lo mejor que podeis hacer es descomprimir el adjunto y pulsar Ctrl+h para ver el funcionamiento.
El ejemplo está parámetrizado para dos subniveles, pero pueden definirse tantos como se quieran, tampoco existe un número de hojas predeterminado.
Paz y amor
.
Navegador.rar