Excel Macro how to check if cells contains special character

[dehachopper]

I want to make a macro that can check if a cells is contains special character like '%^&' but also alt+enter, here is my macro:
Sub CHECK_Click()
Dim regEx As Object
Dim formulaColorWrong As Long
Dim formulaColorRight As Long

formulaColorRight = RGB(Red:=0, Green:=0, Blue:=0)
formulaColorWrong = RGB(Red:=255, Green:=0, Blue:=0)
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.Pattern = "[!0-9A-Za-z.,@_-]"
Sheets("CheckSheet").Activate
For Each objCell In ActiveSheet.UsedRange.Cells
If regEx.Test(objCell.Value) Then
objCell.Font.Color = formulaColorRight
Else
objCell.Font.Color = formulaColorWrong
End If
Next
End Sub

it works properly but can't catch alt+enter expression.
could someone help me out?

 

[RatExcel]

Check this:

Sub CHECK_Click()
Dim regEx As Object
Dim formulaColorWrong As Long
Dim formulaColorRight As Long

formulaColorRight = RGB(Red:=0, Green:=0, Blue:=0)
formulaColorWrong = RGB(Red:=255, Green:=0, Blue:=0)
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.Pattern = "[!0-9A-Za-z.,@_-]"
Sheets("CheckSheet").Activate
For Each objCell In ActiveSheet.UsedRange.Cells
If regEx.Test(objCell.Value) And InStr(1, objCell.Value, Chr(10)) = 0 Then
objCell.Font.Color = formulaColorRight
Else
objCell.Font.Color = formulaColorWrong
End If
Next
End Sub

 

[dehachopper]

Check this:

Sub CHECK_Click()
Dim regEx As Object
Dim formulaColorWrong As Long
Dim formulaColorRight As Long

formulaColorRight = RGB(Red:=0, Green:=0, Blue:=0)
formulaColorWrong = RGB(Red:=255, Green:=0, Blue:=0)
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.Pattern = "[!0-9A-Za-z.,@_-]"
Sheets("CheckSheet").Activate
For Each objCell In ActiveSheet.UsedRange.Cells
If regEx.Test(objCell.Value) And InStr(1, objCell.Value, Chr(10)) = 0 Then
objCell.Font.Color = formulaColorRight
Else
objCell.Font.Color = formulaColorWrong
End If
Next
End Sub

Thank you.. it's works..

 

[dehachopper]

I found new problem with my code here, its didn't catch "J@J".. Is it because excel read it like a string?

 

[dehachopper]

I found new problem with my code here, its didn't catch "J@J".. Is it because excel read it like a string?

Already fix the problem