Click a Cell and insert a wingding

In excel I am wanting to be able to click a cell to insert a Selected wingding from a list.
But to also beable to click the cell a second time to change to another wingding.
I am trying to create a Tick and cross function for a Checklist. Click once to input a tick click twice input a cross click thrice and cell is cleared.
I have seen this tht was used to change the colour of the cell on click and am having trouble working out if I can modify it or need something completely different.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target
If Intersect(.Cells, Columns(2)) Is Nothing Or .Count > 1 Then Exit Sub
Select Case .Value
Case ""
.Interior.ColorIndex = 10
Case 1
.Interior.ColorIndex = 6
Case 2
.Interior.ColorIndex = 2
Case 3
.Interior.ColorIndex = xlNone
.Value = vbNullString
Exit Sub
Case Else
Exit Sub
End Select
.Value = .Value + 1
End With

End Sub

ANY suggestions grewatly appreciated.