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

so close on the Code tags....the end one should be "[/code]"

you should be able to add another ElseIF and copy your "q" code and then change it to z and FE...

not a lot, there are a few reasons....

1) it is a forum rule the moderators will give you infraction points.
2) and more importantly it hold the formatting of your code and makes it easier to read for the folks trying to help....

so, I was trying to help you not get infraction points and see if I could figure out your VBA issue....which I'm working on....hope this helps....

no problem....I don't seem to be able to get your code that you have post working, much less add to it....can you attach a macro enabled workbook with data that is not company confidential?

Scroll to the bottom and you should see a Go Advanced and scroll down in there and you should see a attachment area....it using a weird browse kind of system but it works....

see if this gets you closer

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/Z]" 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")
            ElseIf .Offset(, -1).Value = "Z" Then
                .Value = IIf(.Value = "Z", "", "FE")
            End If
            .Offset(0, -1).Activate
        End With
    End If

    Application.EnableEvents = True
    
End Sub

seems to work on my machine....here is the file....did you copy my code in or just type in the addition?....because I added code to the top also....