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
Primero que todo, saludar a todos los amigos del Foro.
Felicitarlos por el Galardon MVP.
Además de agradecer a todos los usuarios que personalmente me han ayudado mucho.
Por otra parte afirmar que las modificaciones al foro estan excelente y me sumo a los multiples usuarios que las acatan.
Soy Cristian Hernandez Gonzalez
Escritor y Poeta Chileno.
Además trabajo para una compania de Telefonia y Televisión Digital
en Santiago.
He escrito más de una decena de libros, y me enamore de Excel
desde la primera vez que tuve que trabajar con él.
Espero poder colaborar con un granito de arena en el foro (así como creo haberlo hecho años anteriores) y poder ser un aporte para la comunidad.
Un abrazo desde Chile y lo mejor para cada uno de los usuarios.