---

How to Handle Multiple Conditions in Excel VBA When a Cell Contains Specific Text

In Excel VBA, it’s common to automate tasks based on the content of a cell. One particularly useful scenario is when you want to perform different actions if a cell contains specific text—not necessarily an exact match—and you want to process multiple conditions with If statements.

This comprehensive guide will show you how to:

• Check if a cell contains a certain string (even partially)
• Use If, ElseIf, Select Case, and Like statements
• Combine multiple conditions in VBA
• Avoid common pitfalls in text matching
• Apply real-world automation examples

By the end of this article, you’ll be able to build robust conditional logic in VBA scripts, especially useful for task automation, reporting, or data validation.

---

✅ Basic Concept: If Statement with Text Matching

Let’s begin with the basic idea.

In VBA, checking for an exact match looks like this:

If Range("A1").Value = "Urgent" Then
MsgBox "High priority"
End If

But what if the cell contains "Urgent - reply now"? The condition will fail.

To check if a cell contains specific text, even as a part of the full string, use the InStr function.

---

✅ How to Use InStr for Partial Text Match

InStr returns the position of one string inside another. If it returns 0, the text was not found.

If InStr(1, Range("A1").Value, "Urgent") > 0 Then
MsgBox "High priority"
End If

This returns True for "Urgent", "Urgent - Call back", or "Check urgent issues".

✅ InStr is not case-sensitive by default.

---

✅ Multiple Conditions Using If...ElseIf

You can combine several InStr checks with ElseIf:

Dim txt As String
txt = Range("A1").Value
If InStr(1, txt, "Urgent") > 0 Then
MsgBox "High priority"
ElseIf InStr(1, txt, "Pending") > 0 Then
MsgBox "Medium priority"
ElseIf InStr(1, txt, "Complete") > 0 Then
MsgBox "Low priority"
Else
MsgBox "No status found"
End If

This approach is perfect when only one condition should apply per cell.

---

✅ Combining Conditions with And / Or

Sometimes you need more complex logic.

Example 1: Check if cell contains both “Urgent” and “Client”

If InStr(1, txt, "Urgent") > 0 And InStr(1, txt, "Client") > 0 Then
MsgBox "Client escalation"
End If

Example 2: Check if cell contains either “Urgent” or “Critical”

If InStr(1, txt, "Urgent") > 0 Or InStr(1, txt, "Critical") > 0 Then
MsgBox "High severity"
End If

Use And for stricter conditions, and Or for broader detection.

---

✅ Case-Sensitive Matching Using StrComp

If you want case sensitivity, combine InStr with StrComp:

If InStr(1, txt, "urgent", vbBinaryCompare) > 0 Then
MsgBox "Case-sensitive match found"
End If

Alternatively, use:

If StrComp("Urgent", txt, vbBinaryCompare) = 0 Then
MsgBox "Exact case-sensitive match"
End If

---

✅ Using Like Operator for Pattern Matching

VBA’s Like operator allows basic wildcard matching.

If txt Like "*Urgent*" Then
MsgBox "Contains 'Urgent'"
End If

• * matches zero or more characters
• ? matches exactly one character

Example:

If txt Like "*Urgent*Client*" Then
MsgBox "Urgent client case"
End If

This is helpful for simple pattern matching, but not ideal for complex logic.

---

✅ Better Readability with Custom Function

For cleaner code, create a reusable function:

Function ContainsText(cellValue As String, keyword As String) As Boolean
ContainsText = InStr(1, cellValue, keyword, vbTextCompare) > 0
End Function

Then use:

If ContainsText(Range("A2").Value, "Urgent") Then
MsgBox "Found 'Urgent'"
End If

This improves code clarity and maintenance.

---

・ Categorize Tasks Based on Cell Text

Let’s say you have a list of tasks in column A, and you want to categorize them in column B using VBA:

Sub CategorizeTasks()
Dim i As Long
Dim lastRow As Long
Dim txt As String
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
txt = Cells(i, 1).Value
If InStr(1, txt, "Urgent") > 0 Then
Cells(i, 2).Value = "High"
ElseIf InStr(1, txt, "Pending") > 0 Then
Cells(i, 2).Value = "Medium"
ElseIf InStr(1, txt, "Complete") > 0 Then
Cells(i, 2).Value = "Low"
Else
Cells(i, 2).Value = "Other"
End If
Next i
End Sub

This script loops through each task and applies a label based on text content.

---

✅ Using Select Case with Text Matching

Select Case is not designed for partial matches, but you can work around it:

Select Case True
Case InStr(1, txt, "Urgent") > 0
MsgBox "High"
Case InStr(1, txt, "Pending") > 0
MsgBox "Medium"
Case InStr(1, txt, "Complete") > 0
MsgBox "Low"
Case Else
MsgBox "Other"
End Select

This is easier to read when handling many conditions.

---

✅ Real-World Scenario: Auto Reply by Keyword

Suppose you receive feedback or survey responses, and you want to auto-generate email replies depending on keywords like "Complaint", "Praise", or "Suggestion":

Sub AutoReply()
Dim txt As String
txt = Range("B2").Value
If InStr(1, txt, "Complaint") > 0 Then
MsgBox "We are sorry to hear that. We'll follow up shortly."
ElseIf InStr(1, txt, "Praise") > 0 Then
MsgBox "Thank you for your kind feedback!"
ElseIf InStr(1, txt, "Suggestion") > 0 Then
MsgBox "Thank you! We’ll consider your suggestion."
Else
MsgBox "Thank you for your input."
End If
End Sub

This makes VBA scripts interactive and adaptable for customer service.

---

✅ Common Pitfalls to Avoid

Pitfall	Description	Solution
Using = instead of InStr	Only exact matches	Use InStr for partial matches
Case mismatch	"urgent" ≠ "Urgent"	Use vbTextCompare or convert to LCase()
Overcomplicated If chains	Hard to maintain	Use Select Case True or custom function
Skipping empty cells	May cause error	Add If Len(txt) > 0 Then... condition

---

✅ Performance Tips for Large Datasets

• ✅ Use With blocks to speed up cell access
• ✅ Disable screen updating for faster execution:

Application.ScreenUpdating = False

• ✅ Avoid repeated calls to Range.Value—store it in a variable once

---

・ Summary Table

Task	VBA Logic
Check if cell contains “text”	InStr(1, cell, "text") > 0
Case-sensitive match	InStr(1, cell, "text", vbBinaryCompare)
Pattern match	cell Like "*text*"
Multiple keywords	Combine with And / Or
Apply labels	If...ElseIf, Select Case True
Reusable check	Create ContainsText() function

---

✅ Final Thoughts

Using If statements with multiple conditions in Excel VBA allows you to build smart, text-aware automations. Whether you’re handling task lists, emails, feedback, or logs, checking for the presence of specific words gives your macros the power to react like a human would—intuitively.

Start with InStr and Like, move to Select Case True for clarity, and don’t forget to handle errors gracefully. These techniques will take your Excel VBA skills to the next level.

---

Need more automation tips? Explore our guides on:

• Looping through cells with conditions
• Creating dynamic message boxes
• Using arrays and dictionaries for advanced control

And if this helped you, consider sharing or bookmarking for future reference. Happy coding with VBA!

---