Los comentarios solamente pueden aparecer después de end sub

[moleiro1]

Tengo varios checkbox en una hoja de Excel y a cada uno le pongo el siguiente evento de VBA:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const Rango As String = "B2"
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
Range("B118").Value = 300
Range("B136").Value = 300
Range("B154").Value = 300
Range("B172").Value = 300
Range("B190").Value = 300
Loop
.Value = ""
End With
End Sub



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const Rango As String = "C2"
Private Const Mensaje As String = "IIIIIIIIIIIIIIIIIIIIIIIII"
Private Sub CheckBox2_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
Range("C118").Value = 180
Range("C136").Value = 180
Range("C154").Value = 180
Range("C172").Value = 180
Range("C190").Value = 180
Loop
.Value = ""
End With
End Sub

pero tengo el problema de que me sale el siguiente error:

"Los comentarios solamente pueden aparecer después de end sub, end fuction o end property"

y no sé como arreglarlo.
muchas gracias