Checkbox Number

[texasalynn]

I've almost got this but haven't found a way to get a checkbox (form type, not ActiveX) number. I have too many and want to avoid putting in those. Here is a sample of my current code. So the reference CheckBox1, I would like to have it be automatically determined so that I can use a variable in my code. Then I can make one generic code to work with each checkbox.

Option Explicit
Public SRC As String
Private Sub CheckBox1_Click()
Dim i As Variant
    SRC = ActiveSheet.CodeName & "." & Right(CheckBox1.Name, Len(CheckBox1.Name) - 8)
    ActiveCell.Offset(0, 4) = SRC
    i = ActiveCell.Address
    If i = True Then
        Call Chkbx
    End If
    If i = False Then
        Call RemoveLine
        Range(i).Offset(0, 4).Clear
    End If
End Sub

 

[Norie]

If you are using Forms controls you seriously need to look at Application.Caller which will give you the name of the control that has triggered the code.

If you are having problems using Application.Caller can you tell us what they are? Error messages? Incorrect results? etc

 

[Rick Rothstein]

I've almost got this but haven't found a way to get a checkbox (form type, not ActiveX) number. I have too many and want to avoid putting in those. Here is a sample of my current code. So the reference CheckBox1, I would like to have it be automatically determined so that I can use a variable in my code. Then I can make one generic code to work with each checkbox.

You say your checkbox is a Form type checkbox, but the name you are referring to it by (CheckBox1) is not a name that would normally be associated with a Form control, rather, it is the default name given to the first ActiveX checkbox that would be placed. Did you deliberately renamed the control from Check Box 1 (with the spaces as shown) to CheckBox1. If not, I find it hard to believe that your checkbox is not an ActiveX control. Let's check to be sure... right click what you are calling CheckBox1 and tell us if "Edit Text" and "Assign Macro" are in the popup menu that appears.

 

[texasalynn]

Rick - the box does not have edit text nor assign macro. I just realized this is not a form control check box but an activex. I have both types on each sheet and forgot the checkboxes I am working on are the activex type. Sorry about that.