Problema con los controles

[niconico]

Le estado dando vueltas, y bueno cada hoja tiene varias macros, pero por ejemplo de la que te había hablado yo puse lo siguiente (todo ello en el editor de la misma hoja):

Private Sub CheckBox1_Click()
'Ocultamos el proceso, para que no se vean las operaciones
Application.ScreenUpdating = False
'Si el checkbox lo ponemos como true (ON), que haga lo siguiente
If CheckBox1.Value = True Then
'Seleccionamos el rango que queremos copiar
Range("B16:I16").Select
'Lo copiamos
Selection.Copy
'Seleccionamos el rango de destino de la copia
Range("B37:I37").Select
'Lo pegamos
ActiveSheet.Paste
'Desactivamos el área de selección de copia y pegado
Application.CutCopyMode = False
'Nos desplazamos a la celda A1
Range("B16").Select
'Si el checkbox está como false (OFF), que borre el contenido de B1 a B3
Else
'Seleccionamos el rango que queremos borrar
Range("B37:I37").Select
'Borramos el contenido
Selection.ClearContents
'Nos desplazamos a la celda A1
Range("B16").Select
End If
'Mostramos el proceso
Application.ScreenUpdating = True
End Sub

Sub Worksheet_Change(ByVal Target As Range)
'Miramos si el rango d B6 a I16, cambia, para llamar al macro "Copiar"
'(esto no es mío, ya que lo he sacado después de escarbar un poco en la red):
If Not Intersect(Target, Range("B16:I16")) Is Nothing Then
Call CheckBox1_Click
End If
End Sub

Pero no va, puse el codigo de la macro que me va bien. Pero con el nuevo código no a pesar de que llamo a la macro que me afecta si hay algún cambio en esas celdas.
Muchas gracias