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
Insertar Video en Excel:
Por ser el archivo pesado no se puede remitir con un Video de Ejemplo, Pero estos son los pasos a seguir:
Ver la secuencia de las imágenes
Programador/ Insertar Más controles/ Windows Media Player/ Aceptar
Abrimos un espacio, de Tamaño; Aparecer el Reproductor de Video.
Le damos doble Click.
Propiedades/ Personalizado
En Propiedades del Reproductor de Windows Media, escogemos la Selección del modo:
None (es decir Sin Controles)
Mini
Full (default)
Invisible
En Contador : Escogemos la Cantidad de Videos a Reproducirse
En Nombre del Archivo Examinar: Ubicación del Video
Abrir/ Aplicar/ Aceptar
Quitamos el Modo diseño
→ El Video se Reproduce
Podemos minimizar el Tamaño de la Hoja
Nota: Se recomienda que el archivo del Video y el de Excel estén en una misma carpeta