Subscript Out of Range Error With Open Workbook

[Ark68]

I am having problems with my project. I'm unable to figure out why I keep getting a "Subscript out of range" error with the line highlighted in red below ...

Public wb_data As Workbook

Sub clean_up_database()

    Dim norec As Long 'number of records
    Dim sarah As Long
    Dim myVal As Variant
    
    Set wb_main = Workbooks("Sports15b.xlsm")
    Set ws_vh = wb_main.Worksheets("VAR_HOLD")
    Set ws_th = wb_main.Worksheets("TEMP_HOLD")
    Set ws_rd = wb_main.Worksheets("Rental_Data")
    Set ws_fac = wb_main.Worksheets("Facilities")
    Set ws_front = wb_main.Worksheets("DYNAMIC")
    Set fac1 = ws_fac.Range("A:H")
    Set class1 = ws_fac.Range("B:B")
    
    qfile = ws_vh.Range("B3") & ".xlsx"
        
    Set wb_data = Workbooks(qfile)

The value for qfile is correct.
The workbook having the same value as qfile is open.

Is anyone able to shed any light on perhaps why I am receiving this error?

 

[Norie]

What is the value of qfile?

Does it include the path as well as the filename?

 

[Ark68]

Hi Norie,

The value of qfile is simply the workbook name ... "schedule2015_0.xlsx".
It doesn't include the path. I assumed that because the workbook was already open, that that wouldn't be required.

Just as an experiment, I added the path and received the same error.

 

[Norie]

Are you opening the workbook manually or with code?

 

[Ark68]

For testing purposes I have been opening it manually. Under working circumstances, it would be opened through code in the application.
What's unusual, is I've been testing this module this way for weeks. Only today did I start having this problem. It seems to have started after I added this code ...

myVal = Application.VLookup(t_fac, fac1, 2, False)
If IsError(myVal) Then
    ws_core.Range("M" & c1).Value = "X"
Else
    ws_core.Range("M" & c1) = myVal
End If

I suppose the workaround would be to put some temp code in this module to open the workbook?