VBA Code check

[Alisya]

Hi does any one know why this could does not work. I am not getting any errors, it does nothing when i run. I am trying to get the code to look in Col B for N/A, if found then let the user know why msgbox

Sub Test()
    Dim LR1 As Long
    
    LR1 = Range("C" & Rows.count).End(xlUp).Row
    
    If LR1 < 5 Then LR1 = 5
    If UCase$(Trim$(Sheets(1).Range("B" & LR1).Value)) = "N/A" Then
            MsgBox "There is a new a/c"
    End If

End Sub

 

[Michael M]

I understand your need but do you have ALL the code available ....it might be easier if we view and edit the whole script in one hit.
It makes it easier for us AND you to understand !

 

[xenou]

Short answer would be yes. If your code exits the macro when it finds a match, then it returns to the sub that called it. There's more than one way to write such an "early exit" - I think we've seen perhaps three variations on this theme already in this thread - I like the Exit For as soon as a match is found (thus no longer looping through the cells to try to find matches). Though Michael's version works well to count up the total number of new accounts and reporting 1 (or more) found.