Extracting information from a comma separated list of values in one cell

Hi

Try this

Sub aaa()
  For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
    prodd = ""
    datee = 0
    arr = Split(Cells(i, 3), ",")
    For j = LBound(arr) To UBound(arr)
      arr2 = Split(Replace(arr(j), ")", ""), "(")
      If arr2(1) > datee Then
        datee = DateValue(arr2(1))
        prodd = arr2(0)
      End If
    Next j
    Cells(i, 1).Value = prodd
    Cells(i, 2).Value = datee
  
  Next i
End Sub

rylo