Hello everybody
I need a worksheet_Change that clear the target in column A if the target contains the symbol @
The target to be cleared if the symbol even was withing the text itself

the occurences of clearcontents:
-------------------------------------
@

15@

yy@hjee

and so on..
In other words to clear the contents if the symbol implied withing the text

Here's my try
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "*@*" Then Target.ClearContents
End Sub