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 el jueves a las 17:29 4 días
Este es mensaje para intentar ayudar a los afectados por la DANA o Gota fría de 2024 en España
Podemos contribuir con una donación a la Cruz Roja española: AYUDA AFECTADOS INUNDACIONES DANA
Los expertos en datos de España e Hispanoamérica se han unido en una campaña que puedes seguir aquí: Ayuda a los afectados por la DANA | LinkedIn
Este domingo 3 de noviembre, los mejores profesionales en datos se reúnen en una Maratón de Charlas de Ayuda para apoyar a las personas afectadas por la emergencia de la DANA en España.
Si quieres saber más sobre lo que pasó esta semana puedes leer: Tiempo pasado, presente y futuro | #ExcelPedroWave
Salu2,
Pedro Wave