Private Sub CheckBox1_Click()
End Sub

For Each c In Me.Controls '<----Error line

     If TypeOf c Is MSForms.CheckBox Then
     If c Then
    Select Case c.Name

    Case "CheckBox1"
    'Code

     Case Else
       End Select
      End If
     End If
    Next c
   Hide
End Sub