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 trabajo aún no está del todo depurado, pero sirve para demostrar la utilidad
de éstos.
En el módulo de
clase he creado un objeto Gusano que sirve para implementar el juego en una hoja
de cálculo. Como se ve, una vez creado el objeto en el módulo de clase, es muy
fácil implementar el juego, ya que todo el trabajo pesado se ha levantado en el
módulo de clase dejando al descubierto sólo las propiedades y los métodos
necesarios para programar el juego.
EXCELPATAS: Módulos de clase en Excel
Gusanito.xls