xxxxxxxxxx
Sub IfContains()
If InStr(ActiveCell.Value, "string") > 0 Then
MsgBox "The string contains the value."
Else
MsgBox "The string doesn't contain the value."
End If
End Sub
xxxxxxxxxx
'VBA function to test if a string contains only letters:
Function IsAlpha(s) As Boolean
IsAlpha = Len(s) And Not s Like "*[!a-zA-Z]*"
End Function