Referencing an Opened Workbook (with variable in file name)

What I am trying to do:
1) Have user enter date, make the date a part of the file name and open that file.
2) Once the file is opened, look at each tab, find due dates within 7 days, and copy the data to the corresponding "5 days lookahead" workbook.

' Open Data Report. unhide columns and unfilter all tabs

    Dim strTodayDate As String
    Dim sPathTodayReport As String
    
        strTodayDate = txtTodayDate

' coding for unhide and unfilter (it works)

sPathTodayReport = ".....\Airframe Daily_ " & strTodayDate & ".xlsx"

     
    Workbooks.Open (sPathTodayReport), UpdateLinks:=0

Dim strTodayFileName As String
    
strTodayFileName = """Airframe Daily_" & strTodayDate & ".xlsx"""

 Workbooks(strTodayFileName).Sheets("sheet 1").Select  '<< this code does not work

'I have also tried Windows(strTodayFileName)

Norie, thank you for replying.

The Workbook with the date has been opened. What I want to do is to go to this workbook, copy some data.
Then go back to the workbook (5 days lookahead) and paste it. Then go back and forth.

My codings are:

Dim strTodayFileName As String
    
strTodayFileName = """Airframe Daily_" & strTodayDate & ".xlsx"""

 Workbooks(strTodayFileName).Sheets("sheet 1").Select  '<< this code does not work

'I have also tried Windows(strTodayFileName) still does not work

It's actually more complicated:

1) So now my working workbook (5days lookahead) and my data workbook (Airframe Daily with date variable) are opened.
2) I want to go to Daily, tab Tier 2 to find out how many rows of data I have.
3) Then for anything with 3rd column with a date less than now() =7, I want to copy that row
4) Then go to the 5 days workbook, Tier 2 tab, and paste that row to the row after the last record.

        Dim i As Integer
        Dim iLastRowT2 As Integer
        Dim i5DLastRowT2 As Integer
        
        
        ' Find Last Row of Data in Tab Tier 2 90 Day Look Aheads
            
            Windows(strTodayFileName).Activate
            Sheets("Tier 2 90 Day Look Aheads").Select
            With ActiveSheet
                If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
                    iLastRowT2 = Cells.Find(What:="*", _
                    After:=.Cells(1, 1), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row
                    
                Else
                    iLastRowT2 = 1
                    Cells(iLastRowT2, 1).Select
                    Exit Sub
                End If
            End With
            
            Cells(iLastRowT2, 1).Select
            ActiveCell.Offset(1, 0).Activate
            
    'Find any row with Due date within 7 days
    
 
    For i = 2 To iLastRowT2
        If Cells(i, 3) < Now() + 7 Then
        Rows(i).Copy
        
            Windows("5Days Lookahead Template.xlsm").Sheets("Tier 2").Select
            
            With ActiveSheet
                If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
                    i5DLastRowT2 = Cells.Find(What:="*", _
                    After:=.Cells(1, 1), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row
                    
                Else
                    i5DLastRowT2 = 1
                    Cells(i5DLastRowT2, 1).Select
                    Exit Sub
                End If
            End With
            
            Cells(i5DLastRowT2, 1).Select
            ActiveCell.Offset(1, 0).PasteSpecial
        End If
    
    Next i