Change code so it also prevents special characters being entered

[danbates]

Hi,

I have this code that I would like to alter so it prevents the so called special characters as well as numbers being entered into my range.

Special characters being !"£$%^&*()_+=-{}][~#';<>?/.,|\`¬ and so on.

If Target.Column <> 5 Then Exit Sub

Dim cell As Range
    Application.EnableEvents = False
    For Each cell In Target
           If IsNumeric(cell.Value) Then
           MsgBox "NO NUMBERS"
              cell.Value = vbNullString
              cell.Select
           End If
    Next cell
    Application.EnableEvents = True
    
Exit Sub

Thanks

Dan

 

[Tim_Excel_]

Glad to have helped Dan