Couple of other ways.

Format cell as Webdings and enter a lowercase a
Format cell as Wingdings 2 and enter a uppercase P
Format cell as Marlett and enter a lowercase a

VBA Noob