Worksheet check macro sub-routine

DenniBrink

New Member
Joined
Jul 31, 2016
Messages
46
;) 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
 

Some videos you may like

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,761
Office Version
2013
Platform
Windows
Try this:
Code:
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
 

mikerickson

MrExcel MVP
Joined
Jan 15, 2007
Messages
23,551
My Answer Is This's code should work.

Perhaps adding a sheet qualification
Code:
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...
 
Last edited:

DenniBrink

New Member
Joined
Jul 31, 2016
Messages
46
My mistake! Sorry about that. The text string "MISMATCH" is case sensitive. The VBS script now works.
 

Watch MrExcel Video

Forum statistics

Threads
1,099,030
Messages
5,466,120
Members
406,468
Latest member
Toto Li

This Week's Hot Topics

Top