VBA Macro to show a message If a cell string contains a character

[krm974ynk]

I need a VBA code to check a cell and If cell text contains a specific character such as: ! (exclamation mark) it will show a message box.
such as, presume cell string is: "January!" and then to show a message. If cell string is: "January" not to show a message.

I appreciate ıf anyone can help me.

 

[James006]

Hi,
You can test following

Sub Test()
MsgBox IIf(InStr(1, ActiveCell, "!") > 0, "YES", "N0")
End Sub

 

[krm974ynk]

Hi James, thank you for the help. Unfortunately id did not work. Maybe I made a mistake I am not so sure.

 

[krm974ynk]

Hi James, I have arranged as follows and it works at the moment. When there is: "!!!" inside string I get message....

If InStr(1, ActiveCell.Value, "!!!") <> 0 Then
MsgBox "CAUTION!"