Is this how you wanted?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "a1:bu1450" '<=== change to suit
On Error GoTo err_handler
Application.EnableEvents = False
If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
With Target
If .Column <> 10 Then
If .**fset(, -1).Value = "q" Then
.Font.Name = "x"
.Value = IIf(.Value = "x", "", "x")
.**fset(0, -1).Select
End If
Else
If .**fset(, -1).Value = "/" Then
.Font.Name = "Wingdings 2"
.Value = IIf(.Value = "t", "", "t")
.**fset(0, -1).Select
End If
End If
End With
End If
err_handler:
Application.EnableEvents = True
End Sub
**fset should be **fset
Don't know why, but it changes.
Bookmarks