Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("C:C")) Is Nothing Then
For Each c In Intersect(Target, Range("C:C"))
If Not IsError(Application.Match(c.Value, Range("Words"), 0)) Then
With Application
.EnableEvents = False
.Undo
MsgBox "That's a forbidden word - try another."
.EnableEvents = True
Exit Sub
End With
End If
Next c
End If
End Sub
This was something i came across, but due to my no skills, i cant figure out how to suit it to my needs,
ive since created a range on a new spreadsheet for "words" listed with the with the below characters i wish to not allow in column C but literally nothing happens aha