Excel - No puedo hacer que funcione esto

No puedo hacer un boton que me direccione a otra hoja y borre algunas celdas ....
por ejemplo en este caso... Semana1 , y las celdas A4:L8,A10:L11,D9:F9,J9:L9

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

me da error aca:

Range("A4:L8,A10:L11,D9:F9,J9:L9").Select

saludos.

Quita el
Range("J9").Activate

Saludos

Disculpame pero sigue haciendo lo mismo, y sigue mostrando el mismo error.
Gracias de todos modos.

No hara falta "!"?

En el codigo d ela hoja, no puedes seleccionar otra hoja directamente con sheets, tiene que quedar asi:

Private Sub CommandButton1_Click()
Worksheets("semana 1").Range("A4:L8,A10:L11,D9:F9,J9:L9").ClearContents
Range("A4").Select
End Sub

Abraham

La funcion que me pasaste funciono perfecto. Ahora puedo hacer que luego de usar el boton, quede en la hoja (semana1) en la celda A4 ??? Y no quedar en la hoja donde esta el boton.