Marcar un checkbox y se peguen los valores

Tengo una hoja de Excel con un checkbox y quiero que al marcar éste, se ilumine intermitentemente la celda donde se encuentra el checkbox y al mismo tiempo grabe los valores en las celdas correspondientes.
Cada sentencia por separado me funciona pero no sé como juntarlas.
Iluminación con intermitencia
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const Rango As String = "B6"
Private Const Mensaje As String = "IIIIIIIIIIIIIIIIIIIIIIIII"
Private Sub CheckBox1_Click()
Dim Celda As Range
Set Celda = Range(Rango)
With Celda
.Font.Color = &HFF&
Do While CheckBox1.Value
DoEvents
.Value = IIf(.Value = Mensaje, "", Mensaje)
Sleep 80
Loop
.Value = ""
End With
End Sub
GRABACION DE VALORES EN LAS CELDAS
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("C118").Value = 180
Range("C136").Value = 180
Range("C154").Value = 180
Range("C172").Value = 180
Range("C190").Value = 180
End If
End Sub
Muchas gracias por tu ayuda