Check Box

T

tuxaby

Does anyone know of a way to convert a cell to a check box? We would like to
convert the cell rather than using the active X controls on top of it.
Thanks.
 
J

Jason Morin

You could double-click the cell and "convert" it to a
checkbox:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
With ActiveCell
.Value = "ü"
.Font.Name = "Wingdings"
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.ColumnWidth = 2.57
End With
End Sub

---
To use, right-click on the sheet tab, go to View Code,
and paste in the code above. Press ALT+Q to exit.

HTH
Jason
Atlanta, GA
 
Top