The Final Pieces to the Puzzle, anyone?

[CBRadio]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Target.Cells.Count > 1 Then Exit Sub
Set c = Intersect(Range("C14:C28"), Target)
If c Is Nothing Then Exit Sub
Cells(Target.Row, 1).Resize(, 5) = ""
Target = "X"

End Sub

I had seen this on a previous post in response to a concern that a woman had on the check boxes. Here concerns mirrored my own, only problem is my situation is slightly more complex. I need the cells for the following ranges to function like a check box when active; would like them to toggle as well, if possible. I am knew to this so, please be easy on me. The following ranges are what I need;
"C14:C28" & "C31:C32"
"E14:E28" & "E31:E32"
"G14:G28" & "G31:G32" &
"I14:I28" & "I31:I32".

I know this is a tall order, but it is just the beginning of my troubles. I also need to automate responses in relation to these 60-68 check box function style cells, based on the status of the cells. Beyond that, it should open a pull down menu & list a range of automated responses to choose from. If you can help me w/ everything, great! The first issues are my most immediate concern. . . thx in advance for any help.

 

[Andrew Poulsom]

Welcome to MrExcel.

See if you can adapt this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Application.Intersect(Target, Range("C14:C28,C31:C32,E14:E28,E31:E32,G14:G28,G31:G32,I14:I28,I31:I32")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then
        Target.Formula = "=CHAR(252)"
        Target.Value = Target.Value
        With Target.Font
            .Name = "Wingdings"
            .FontStyle = "Bold"
            .Size = 8
        End With
        Target.Borders.LineStyle = xlContinuous
    Else
        Target.ClearContents
    End If
End Sub

 

[CBRadio]

welcome to mrexcel.

See if you can adapt this:

private sub worksheet_selectionchange(byval target as range)
    if target.count > 1 then exit sub
    if application.intersect(target, range("c14:c28,c31:c32,e14:e28,e31:e32,g14:g28,g31:g32,i14:i28,i31:i32")) is nothing then exit sub
    if isempty(target) then
        target.formula = "=char(252)"
        target.value = target.value
        with target.font
            .name = "wingdings"
            .fontstyle = "bold"
            .size = 8
        end with
        target.borders.linestyle = xlcontinuous
    else
        target.clearcontents
    end if
end sub

this worked wonderfully! Thank you very much!