vba if string contains letters code example

Example 1: excel vba check if a string only contains letters

'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

Example 2: VBA check if a cell contains a letter or string

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