Import data from unknown workbook name

I have this code which a report is generated and it is not a constant name except the beginning of the file name which is "_ttv-".

Sub wbName()
    Dim wb As Workbook
    Const wbName As String = "_ttv-"

ThisWorkbook.Sheets("IEX Data - CT Set 20").Cells.ClearContents

    For Each wb In Application.Workbooks
        If wb.Name Like wbName & "*" Then
            
            With wb.Sheets("Intraday")
                Sheets("Intraday").Cells.Copy
                With Worksheets("IEX Data - CT Set 20")
        .Paste Destination:=.Range("A1")
    End With
    Application.CutCopyMode = False
        Application.DisplayAlerts = False
    Sheets("Intraday").Delete
    Application.DisplayAlerts = True 'New line
            End With
        End If
    Next wb
End Sub

Its not pulling the data like I need it to. The workbooks name always changes after I generate it - after it copies that data over, I would like the "_ttv-" workbook to close. Any help would be greatly appreciated! Thank you in advance!

How about

Sub wbName()
    Dim wb As Workbook
    Const wbName As String = "_ttv-"

ThisWorkbook.Sheets("IEX Data - CT Set 20").Cells.ClearContents

   For Each wb In Application.Workbooks
      If wb.Name Like wbName & "*" Then
         
         With wb.Sheets("Intraday")
            .Cells.Copy
            ThisWorkbook.Worksheets("IEX Data - CT Set 20").Range("A1").PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            Application.DisplayAlerts = False
            .Delete
            Application.DisplayAlerts = True 'New line
         End With
         
      End If
      wb.Close True
   Next wb
End Sub

This will save the _ttv workbook