Here's a macro by Dave Peterson.

Sub addCBX()
Dim myCBX As CheckBox
Dim myCell As Range

With ActiveSheet
.CheckBoxes.Delete 'nice for testing
For Each myCell In ActiveSheet.Range("A2:A10").Cells
With myCell
Set myCBX = .Parent.CheckBoxes.Add _
(Top:=.Top, Width:=.Width, _
Left:=.Left, Height:=.Height)
With myCBX
.LinkedCell = myCell.Address(external:=True)
.Caption = "" 'or whatever you want
.Name = "CBX_" & myCell.Address(0, 0)
End With
.NumberFormat = ";;;"
End With
Next myCell
End With
End Sub

Just change the range reference: ("A2:A10") to whatever you want. The macro
also sets the linked cell to be the same cell the checkbox is "in" and sets
the checkstate (TRUE or FALSE) to be "invisible". The Caption is set to no
caption. If you want the same caption in every checkbox you'll have to edit
that line. If you want a different caption in each checkbox then you'll have
to do it manually.

Biff

"SteveK" wrote in message
...
I want to create check boxes for each row in a column. I was wondering if
there is a way to relate the check box to one cell and maybe drag the
bottom
right corner down and have it copy down the row. Is there a way to do this
or
another approach i might be able to use? Thanks ahead of time