Private Sub Worksheet_Change(ByVal Target As Range)

If InStr(1, Target.Value, "$") Then MsgBox "Ниииизя!"

End Sub

denied = "\$\%\^\&\*"
If Target.Value Like "*[" + denied + "]*" Then MsgBox "Ниииизя!"

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Denied As String, CheckingRange As Range, j As Range
Denied = "\$\%\^\&\*"
Set CheckingRange = Range("B2:C10")

Set Target = Application.Intersect(Target, CheckingRange)
If Not Target Is Nothing Then
    For Each j In Target.Cells
      If j.Value Like "*[" + Denied + "]*" Then
        MsgBox "Ниииизя!"
        Exit For
      End If
    Next
End If

End Sub