Error Handler - Close Workbooks if open

[mmetzinger]

Can someone explain to me why excel won't let me do this? What I want is for any of my three workbooks that might be open to be closed upon macro error. Testing this doesn't work as excel yells because during testing I don't open one file to make the error happen.

Bunch of code that leads to this statement at the end..

Exit Sub

errhandler:
    On Error Resume Next
    Application.DisplayAlerts = False
    Windows("RMCensus.xlsx").Close
    Windows("Iservices.xlsx").Close
    Windows(outputwb).Close
    MsgBox ("An error occured while running the macro." & vbCrLf & "Please report to BCI IT.")
    
End Sub

Any thoughts?

 

[wigi]

Try

Workbooks( ) instead of Windows( )

Also, to be clear, are the workbooks opened or not, before attempting to close?
And why would you get an error, you are using On Error Resume Next.

 

[mmetzinger]

Try

Workbooks( ) instead of Windows( )

Also, to be clear, are the workbooks opened or not, before attempting to close?
And why would you get an error, you are using On Error Resume Next.

I will try workbooks instead of Windows today. The first line of code in my project is On error goto errhandler. The part I posted is just the errhandler portion at the bottom of my module. What I need is if the workbooks are open for them to be closed but depending on where the code breaks I do not know if the workbook is open or not yet. Hence why I have the updated error handler of On error resume next.