Format the cell with the Windings font, and then enter the check
mark character. To do this, hold down the ALT key and type 0252
on the numeric keypad on the right side of the keyboard (not the
numbers above the letters).
I have used windings asm well but I presume you want the
form CheckBoxes. If you do not mind VB this code inserts
3 checkBoxes in column A
Sub AddCheckBox()
Dim i As Long, n As Integer, j As Integer
Dim chk As Object, nme
Dim cb()
Set chk = ActiveSheet.CheckBoxes
Application.ScreenUpdating = False
n = 3
For i = 1 To n
ActiveSheet.CheckBoxes.Add(14.25, 21.75, 24,
17.25).Select
Next i
Range("A1").Select
For i = n To 1 Step -1
chk(i).Select
Selection.Characters.Text = ""
Selection.ShapeRange.IncrementTop n * 12
n = n - 1
Next i
' Release the selction on shapes
Selection = False
' reactivate the sheet
Range("A1").Select
Selection = "ok"
Application.ScreenUpdating = True
End Sub
Change the value of n to suit
Regards
Peter
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.