Try this
Public Sub ClearSelectedCells()
Dim ws As Worksheet
Dim obj As OLEObject
For Each ws In Worksheets
Select Case ws.Name
Case "GROUP PROFILE"
ws.Unprotect
ws.Range("B5:B14,B20:B22,B26:B32,B38:B45,B49:B52,F1,F5:F7,F10:F11").ClearContents
ws.Protect
Case "ELIGIBILITY GUIDELINES"
ws.Unprotect
ws.Range("B7:B15,B17,B21:B36,F1,F5:F6,F9:F10").ClearContents
ws.Protect
Case "CLASSES AND BENEFITS"
ws.Range("A9:E37,G9:J37,K9:L37,E1:I2,L2").ClearContents
Case "COBRA"
ws.Unprotect
ws.Range("B17:B20,B25:B28,C4:C5,C7,C9:C13,C31:C36,E17:E20,G18,H4:H5,J15").ClearContents
ws.Protect
For Each obj In ws.OLEObjects
If Left(obj.Name, 8) = "CheckBox" Then
obj.Object.Value = 0
End If
Next obj
End Select
End Select
End Sub