NewPopListview

Private Sub NEWPopulateChildListView(ByVal horseData As Object)
    ' Clear existing items from child ListView
    ListView2.ListItems.Clear

    ' Set the target sheet (Sheet2)
    Dim targetSheet As Worksheet
    Set targetSheet = Worksheets(dataSheetName) ' Replace "Sheet2" with the actual name of the sheet

    ' Loop through the horse names in the dictionary and retrieve matching rows from Sheet2
    Dim horseNameKey As Variant
    For Each horseNameKey In horseData.Keys
        Dim horseName As String
        horseName = CStr(horseNameKey)

        ' Find the matching rows for the current horse name
        Dim lastRow As Long
        lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row

        Dim matchFound As Boolean
        matchFound = False

        Dim i As Long
        For i = 2 To lastRow
            Dim horseNameSheet2 As String
            horseNameSheet2 = targetSheet.Cells(i, 22).Value ' Assuming the horse name is in the 22nd column of Sheet2

            ' Remove the region letters from the horse name in Sheet2
            Dim regionPos As Integer
            regionPos = InStr(horseNameSheet2, "(")
            If regionPos > 0 Then
                horseNameSheet2 = Trim(left(horseNameSheet2, regionPos - 1))
            End If

            ' Compare the horse names
            If StrComp(horseNameSheet2, horseName, vbTextCompare) = 0 Then
                Dim listItem As MSComctlLib.listItem
                Set listItem = ListView2.ListItems.Add(, , targetSheet.Cells(i, 1).Value) ' Assuming the data you want to display is in the first column of Sheet2
                ' Add additional subitems if needed

                listItem.SubItems(1) = targetSheet.Cells(i, 22).Value ' Column 2
                listItem.SubItems(2) = targetSheet.Cells(i, 3).Value ' Column 3
                listItem.SubItems(3) = targetSheet.Cells(i, 5).Value ' Column 4
                listItem.SubItems(4) = targetSheet.Cells(i, 13).Value ' Column 5
                listItem.SubItems(5) = targetSheet.Cells(i, 15).Value ' Column 6

                Dim unformattedTime As String
                unformattedTime = targetSheet.Cells(i, 27).Text ' Assuming the time value is stored as text in the cell

                ' Assign the unformatted time to the SubItems property
                listItem.SubItems(6) = unformattedTime ' Column 7

                listItem.SubItems(7) = targetSheet.Cells(i, 18).Value ' Column 8
                listItem.SubItems(8) = targetSheet.Cells(i, 16).Value ' Column 9
                listItem.SubItems(9) = targetSheet.Cells(i, 21).Value ' Column 10
                listItem.SubItems(10) = targetSheet.Cells(i, 7).Value ' Column 12
                listItem.SubItems(11) = targetSheet.Cells(i, 25).Value ' Column 13
                listItem.SubItems(12) = targetSheet.Cells(i, 33).Value ' Column 14
                listItem.SubItems(13) = targetSheet.Cells(i, 34).Value ' Column 15
                listItem.SubItems(14) = targetSheet.Cells(i, 26).Value ' Column 16
                listItem.SubItems(15) = targetSheet.Cells(i, 19).Value ' Column 17
                listItem.SubItems(16) = targetSheet.Cells(i, 17).Value ' Column 18
                listItem.SubItems(17) = targetSheet.Cells(i, 30).Value ' Column 19
                listItem.SubItems(18) = targetSheet.Cells(i, 32).Value ' Column 20
                listItem.SubItems(19) = targetSheet.Cells(i, 39).Value ' Column 3
                ' Add more subitems as needed

                matchFound = True ' Set the flag to indicate a match was found
            End If
        Next i

        ' Check if any matching data was found for the current horse name
        If Not matchFound Then
            MsgBox "No matching data found for horse name: " & horseName, vbInformation
        End If
    Next horseNameKey
End Sub