Worksheet check macro sub-routine

[DenniBrink]

Greetings! I searching for assistance in writing a VBA macro that will check each cell in a range for the existence of a specific text string "Mismatch". If the text string exists a Msgbox "Mismatch Found!"; if not Msgbox "Worksheet Checks Good!" would appear.

Worksheet: CREW30
Range: B4: I65

 

[My Aswer Is This]

Try this:

Sub Search_For_Mismatch()
Dim c As Range
    For Each c In Range("B4:I65")
        If c.Value = "Mismatch" Then MsgBox "Mismatch Found!": Exit Sub
    Next
    MsgBox "Worksheet Checks Good!"
    End Sub

 

[DenniBrink]

Thank you for your response. The suggested VBA code you offered does not work.

 

[mikerickson]

My Answer Is This's code should work.

Perhaps adding a sheet qualification

For Each c In Worksheets("CREW30").Range("B4:I65")

Also the test in that code is case sensitive.

"Does not work" is a bit vague. What does MyAnswer's code do in your workbook? Does it return nothing or does it return incorrect results or...

 

[DenniBrink]

My mistake! Sorry about that. The text string "MISMATCH" is case sensitive. The VBS script now works.