Dobrý den,
jak změním znak ✓ na x

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 And Target.Value = ChrW(&H2713) Then
Range("B" & Target.Row & ":D" & Target.Row).Font.Strikethrough = True
Else
Range("B" & Target.Row & ":D" & Target.Row).Font.Strikethrough = False
End If

End Sub

Děkuji moc