Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 And Target.Row >= 4 And Target.Row <= 19 Then
With Target.Offset(0, -4).Resize(1, 4).Font
.Strikethrough = Not (.Strikethrough)
Target = IIf(.Strikethrough, "x", "o")
End With
End If
Target.Offset(0, 1).Select
Application.EnableEvents = True
End Sub