Sonderzeichen aus Spalte entfernen

Sub SonderzDel()
Dim a As Integer
For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row
If Cells(a, 2).Value = Chr(KeyAscii) Like "[0-9 a-z A-Z]" = False Or _
KeyAscii = 32 Then
Beep
MsgBox "Nur Zahlen und Buchstaben erlaubt!"
KeyAscii = 0
End If
Next a
End Sub