Macro code that generates a checkbox when a command button is clicked

[benhop]

I want to write a macro that will create a checkbox in
a cell that meets certain conditions when I click a command button on the top of a column. For example, if the cell's value falls between 1 and -1 in the Q column, the same Q column in which the command button lies, then a macro would generate a checkbox once the Q command button was clicked by the user. I have sample code that works as a macro only when I activate a cell that meets the <1 and >-1 conditions. Ideally, I want the macro to create a checkbox when the user clicks a command button, even if those cells who meet the <1 and >-1 conditions aren't activated by the user. Thanks for any help. Here is my code so far:

Sub Mycheckbox2()
Dim objCBox As Object, c As Object
For Each c In Selection
If (c.Value <= 1 And c.Value >= -1) Then
c.Select
Set objCBox = ActiveSheet.CheckBoxes.Add _
(Left:=ActiveCell.Left, Top:=ActiveCell.Top, _
Width:=20, Height:=ActiveCell.Height)
End If
Next c
End Sub

 

[BAlGaInTl]

You could build on the code that you have.

This example looks at all of your values in Q1 to the Last row that has data in column Q.

Sub Mycheckbox2()
Dim objCBox As Object
Dim c As Range
Dim lRow As Long

lRow = Cells(Rows.Count, "Q").End(xlUp).Row
For Each c In Range("Q1:Q" & lRow)
    If (c.Value <= 1 And c.Value >= -1) Then
        c.Select
        Set objCBox = ActiveSheet.CheckBoxes.Add _
            (Left:=ActiveCell.Left, Top:=ActiveCell.Top, _
            Width:=20, Height:=ActiveCell.Height)
    End If
Next c
End Sub

 

[benhop]

Thanks a ton!