Check Mark

C

Chi Huynh

Hi,
Would you please show me how to put check marks in cells.
Thank you
Chi Huynh
 
C

Chip Pearson

Chi,

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).


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
B

Ben

Chi,

One thing I have done that works, is to set the Cell Font
to Webdings and then type 'a'.

Ben
 
J

Jay Somerset

Yeah, but the Wingdings one looks so much better. Especialy when the font
size is increased.
 
P

Peter Atherton

Chi

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
 
Top