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