Excel Find Function

Dim xl As Excel.Application = New Excel.Application
 
'Create new workbook to merge data into
xl.Workbooks.Add()
Dim wbNew As Excel.Workbook = xl.Workbooks(1)
Dim wsNew As Excel.Worksheet = wbNew.Worksheets(1)
 
Dim matchingRow As Excel.Range
 
'Open ACCTivate file
Dim wbACCTivate As Excel.Workbook = xl.Workbooks.Open(ACCTivateOpen.FileName)
Dim wsACCTivate As Excel.Worksheet = wbACCTivate.Worksheets(1)
 
'Open NaviCat file
Dim wbNaviCat As Excel.Workbook = xl.Workbooks.Open(NaviCatOpen.FileName)
Dim wsNaviCat As Excel.Worksheet = wbNaviCat.Worksheets(1)
 
'Here I've left out some code which just loops through each row
matchingRow = wsACCTivate.Rows.Find(wsNaviCat.Cells(I, 2).ToString.Replace(" ", ""), MatchCase:=False)