Substring extraction without "Text to Columns"

on error resume next
For Each Cell In Workbooks("IndustryPriceIndexCopy.xls").Worksheets("Mthly").Range("Cansim")
    For j = 1 To Windows(fName).Application.Sheets.Count
      if not Workbooks(fName).Sheets(iCount).Cells.Find(Cell) is noting then msgbox= split(Workbooks(fName).Sheets(iCount).Cells.Find(Cell.Offset(0, -2)),"(v")(1)
    Next 
Next