Hi. Im still struggling with what should be a simple find function
I have to add a gazillion new accounts per day and check and amend any existing duplicates
I currently have

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Columns(2).Find(Target.Value, Target, -4123, 1).Select
End Sub
Which works fine. I add the new account, the code finds any existing duplicate and takes my cursor there for amend

My problem is that after typing in an account, I cursor down to add the next value, and if the search is unsuccessful it shifts the cursor back up into the original cell which is doubling my work
So basically I need to something more complex pseudo code

acell = activecell ' save new cell position which has shifted by the time this fires

fcell = find target cell ' save any duplicate found (i have trouble just completing the search without actually selecting/moving the cursor, I just want to store the results of the find

if fcell then select fcell.select else acell.select

Find a cell without selecting/moving the cursor