Object required when closing a workbook

[jomili]

My code is erroring on the "Wkb.Close False" line with an "Object Required" error, and I can't figure out why. This is my attempt to condense a lot of previous code, so I'm sure I've done soemthing wrong, but it's not jumping out at me. I'd sure appreciate some wisdom on this one.

 ExpenseFolder = "\\12AUST1001FS01\SHARE10011\Budget\SOBUDGET\12MFR\Expense_Dtl_Reports\"

        FileNames = Array("BR1112_ExpDtl_JAS.xls", "BR1112_ExpDtl_KP.xls", "BR1112_ExpDtl_DG.xls", _
                          "BR1112_ExpDtl_BV.xls", "BR1112_ExpDtl_JL.xls", "BR1112_ExpDtl_KG.xls", "BR1112_ExpDtl_Orphan.xls")

        For Each Wkb In FileNames
            If Dir(ExpenseFolder & Wkb) <> "" Then
                Workbooks.Open ExpenseFolder & Wkb, ReadOnly:=True, UpdateLinks:=True
            End If
            FilterData
            lrow = Cells(Rows.Count, 1).End(xlUp).Row
            If lrow > 1 Then
                'copy the detail to Today's sheet
                ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).EntireRow.Copy Destination:=Exp.Sheets("Today").Range("A65536").End(xlUp).Offset(1, 0)
            Else
            End If
            Application.CutCopyMode = False
            Wkb.Close False

        Next Wkb

---------- Post added at 11:48 AM ---------- Previous post was at 11:03 AM ----------

Well, I figured it out. Instead of

Wkb.Close False

I put

ActiveWorkbook.Close False

. That did the trick!

[tigeravatar]

jomili,

The issue is that the variable Wkb is used to loop through the array of filenames. That makes it a string type variable and not a workbook object. To close the workbook, you'll need to use:

Workbooks(Wkb).Close False

---------- Post added at 10:50 AM ---------- Previous post was at 10:50 AM ----------

Looks like I posted a hair too late! Glad you got a working solution

[jomili]

Better late than never. Thanks for helping.