Excel - No encuentro solucion a este error

Este boton me da un error en la tercer linea (o bien proviene de la segunda) y no se por que, creo que esta bien hecho.
Saludos.

Private Sub CommandButton1_Click()
Sheets("Semana 1").Select
Range("A4:L8,A10:L11,D9:F9,J9:L9").Select
Range("J9").Activate
Selection.ClearContents
Range("A4").Select
End Sub

Pues tu codigo hace una seleccion, de varios rangos, despues activa un rango y limpia el contenido de todas las celdas y despues posiciona en A4 ...este codigo me funciona cuando lo corri, no tendras protegidas las celdas?

No... Yo si lo corro como Macro me funciona, si lo corro como Boton me da error.
Lo que quiero hacer es lo siguiente, un boton que valla a una hoja (semana1) y borre el contenido de unas celdas especificas.
Y no logro hacerlo funcionar.
Gracias.
Saludos.

Quita el
Range("J9").Activate

Saludos

Disculpame pero sigue mostrando el mismo error al borrar esa linea.
Gracias de todos modos.
Saludos.