Public Sub TickThem()

'     This subroutine will place a tick mark in a cell
'     or rnage of cells.
 
Dim c As Excel.Range
For Each c In Selection
    c.Value = ChrW(&H2713)
Next c
End Sub