tick mark in excel column

HOW DO I write macro for TICK MArk in cell

Code:

---

    Sheet1.Range("A1").Font.Name = "Wingdings 2"
    Sheet1.Range("A1").Value2 = "P"

---