I had to replace "Activecell" with the code below, will someone please tell me why it didn't work and kept returning to the same row?
Code:
With Workbooks(wbName).Sheets("Contacts")
.Activate
.Columns("A:BC").Find(What:=frmData.txtFindText.Value, After:=[B].Cells(ActiveCell.Row + 1, 1)[/B], LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
End With