Check box

In Excel:


How can I make Checkbox on each row? Thanks.


--
accessman2
------------------------------------------------------------------------
accessman2's Profile: http://www.excelforum.com/member.php...o&userid=27953
View this thread: http://www.excelforum.com/showthread...hreadid=474980

Hi Accessman,

Using VBA, try:

'=============
Sub InsertCheckBoxes()
Dim rng As Range
Dim c As Range

Set rng = Range("A1:A20") '====== CHANGE

Application.ScreenUpdating = False
For Each c In rng.Cells
With ActiveSheet.CheckBoxes.Add(c.Left _
+ 5, c.Top - 2, 5, 5)
.Caption = ""
.LinkedCell = c.Address(False, False)
End With
c.Font.Color = vbWhite
Next c
Application.ScreenUpdating = True

End Sub
'=============

Change ("A1:A20") to your range of interest.

If you are not faniliar with macros, you may wish to visit David McRitchie's
'Getting Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


---
Regards,
Norman



"accessman2" wrote
in message ...

In Excel:


How can I make Checkbox on each row? Thanks.


--
accessman2
------------------------------------------------------------------------
accessman2's Profile:
http://www.excelforum.com/member.php...o&userid=27953
View this thread: http://www.excelforum.com/showthread...hreadid=474980