Excel Macro- searching a value

[Nick272]

Hi,

I got a macro that works most of the time with the data I have, but sometimes my data is incorrect and needs to be changed manually. The data is incorrect when in kolom A the text is not ZORS (or blank). I want to let the macro search in kolom A whether there is a value that is not: ZORS. If there is a value other than ZORS then I want a pop up message saying "incorrect data". Does anyone have an idea how to fix this? I would really appreciate your help!

Kind regards,
Nick

 

[Gavin T]

Try this:

Sub DataCheck()

    Dim lRow As Long

    lRow = Range("A" & Rows.Count).End(xlUp).Row
    
    If Application.WorksheetFunction.CountIf(Range("A1:A" & lRow), "<>ZORS") > 0 Then
        MsgBox "Something other that ""ZORS"" was found.", vbInformation, "Data Check"
    End If

End Sub