Adding to some existing VBA code

I have some working VBA code that lets me do two things.
1) When I click in a cell (with a "q" in a cell, directly to the left of it) it puts an "X" in the cell.
2) When I click in a cell (with a "/" in the cell, directly to the left of it) it puts a "wingding symbol" in the cell.
These work perfectly. I would like to add one more component, the same "type/way" as above. (see next line)
When I click on a cell (with a "z" in the cell, directly to the left of it) I want it to put in the letters "FE". (same way as above)

Can someone modify, or add to my VBA code (shown below), so this will work??
If you could send me back the full (modified code), that would be great.
Thanks.


Here's my VBA code;

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Const WS_RANGE As String = "a1:bu1450" '<=== change to suit
 If Target.Count > 1 Then Exit Sub
 If Not Target.Offset(, -1).Value Like "[q/]" Then Exit Sub
 Application.EnableEvents = False
 If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
 With Target
 If .Offset(, -1).Value = "q" Then
 .Font.Name = "x"
 .Value = IIf(.Value = "x", "", "x")
 ElseIf .Offset(, -1).Value = "/" Then
 .Font.Name = "Wingdings 2"
 .Value = IIf(.Value = "t", "", "t")
 End If
 .Offset(0, -1).Activate
 End With
 End If
 Application.EnableEvents = True
 End Sub