how to write check symbol with click action in excel

 Si ocupas poner un select con mejor estilo en excel aconsejo cambia los valores por medio del siguiente código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

  Application.EnableEvents = False

  With Target

  If .Address = Range("D7").Address Then

    Select Case .Value

      Case ""

        .Value = ChrW(&H2713)

      Case ChrW(&H2713)

        .Value = ""

    End Select

  End If

  End With

  Application.EnableEvents = True

End Sub

Donde tu defines los rangos donde deseas que se realicen los cambios.

Y mejoras el estilo como te parezca con las opciones por defecto del excel.