I would like to run VBA code when a check box is checked.

codeslizer,

That works great, and was very simple. However, when I protect the spread sheet it does not allow me to check the box. Well it allows me to check one box at a time. Would there be any kind of a work-around that you can see?

Thanks,
redsab

Solus,
That did work, but how did you get those check boxes highlited? What's the secreate? This is not my real worksheet, it is just a test worksheet I was working on for an example. It really astounds me the amount of brilliants that is at this forum. I have never post a question, that someone could not solve. Thanks Solus!

redsab

Solus,
I have been working with your example and modified it at bit and changed the senario. I would like to have Checkbox3 be the one you click on to automatically check box3 - box10. But I do not want it to check box1 or box2. I have programed box1 and box2 to display a message when they are checked. I am not sure how to exclude boxes 1 & 2. At the moment, if I check box3 it checks all of my boxes 1 - 10. I am new to VBA and I have not worked with Active X Controls. Would you mind to show me how to modify CheckBox3_Click() to accomplish this senario! Thanks in advance!!

redsab

Solus,
Nevermind, I came up with a solution.

Private Sub CheckBox3_Click()

    Dim oCont As OLEObject
    Dim I As Integer
    
    If Not Flag3 Then
        Cells(4, 5).Value = "Checkbox 3 was clicked!"
        Flag3 = True
    Else
        Cells(4, 5).Value = ""
        Flag3 = False
    End If

    I = 1
    For Each oCont In Me.OLEObjects
        If I > 2 Then
            If TypeName(oCont.Object) = "CheckBox" Then
                oCont.Object.Value = Me.CheckBox3.Value
            End If
        End If
        I = I + 1
    Next oCont

End Sub

Thanks for your help, I could not have done it without your help!

redsab