VBA Windows（Index）.Activate导致运行时错误'9'：下标超出范围

Question

I have an almost-complete VBA macro which runs fine until it reaches this line:

Windows(temp_name).Activate

When I run this I get the following error:

Run-time error '9':

Subscript out of range

temp_name is the name of the file I need to return to. Here are some lines around this (tell me if more lines are necessary):

Next Ind
Application.CutCopyMode = False
Workbooks.OpenText Filename:=CPath _
    , Origin:=437, startRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
    , Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
    Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
    Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1)), _
    TrailingMinusNumbers:=True
For Ind1 = 1 To iPlateNo
TLCorn = "B" + CStr(iStartrow + (Ind1 - 1) * iStep)
BRCorn = "M" + CStr(iStartrow + 7 + (Ind1 - 1) * iStep)
RangeNOut = TLCorn + ":" + BRCorn
RangeNIn = TLCorn
Windows(FileN).Activate
Range(RangeNOut).Select
Selection.Copy
Windows(temp_name).Activate
Sheets("Data").Select
Range(RangeNIn).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Next Ind1
'   Calculation of background and efflux for individual plates
For Ind1 = 1 To iPlateNo / 2
    iStep2 = (Ind1 - 1) * iStep * 2
    iBgrRow = iStartrow + 8 + iStep2
    BgrValP = Cells(iBgrRow, 2).Value
    For Ind2 = 0 To 7
        iEntryRow = iStartrow + Ind2 + iStep2
        iEntryRow2 = iStartrow + Ind2 + iStep2 + 11
        MediaVal = Cells(iEntryRow, 13).Value
        MonoVal = Cells(iEntryRow2, 13).Value
        Cells(iEntryRow, 15).Value = MEeff * 100 * Volcorr * (MediaVal - BgrValP) / (M40eff * MonoVal + Volcorr * MEeff * (MediaVal - BgrValP))
    Next Ind2
Next Ind1

Answer 1

Try

Workbooks(temp_name).Activate 

This will reference the specific Excel Workbook instance as I believe it is failing to find the workbook you are intending to reference. Assuming Sheets("Data") is a worksheet within whatever workbook name is held in "temp_name" at the time?

Thanks,

Jamie