BeforeClose Event

[Bagsy]

Can anybody please help with this error in my code
I have set up opening a source workbook using the Workbook_Open event, which works just great.


I need to then close the source workbook using the BeforeClose event without saving any changes. But I keep getting “Object required” error
Any help is appreciated code below

Private Sub Workbook_Open()
Dim WB As Workbook
 Dim CurrentSheet As Worksheet
 Set CurrentSheet = ActiveSheet
Set Wkbk = ActiveWorkbook

    Application.ScreenUpdating = False ' turn off the screen updating
    Sheets("Running List").Select
       Set WB = Workbooks.Open("C:\Users\Gary Baker\Documents\Lion Engineering\W4G\W4G\Operational Data\_Databases\Customer List.xlsx", True, True)
    Application.ScreenUpdating = True ' turn on the screen updating
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WB As Workbook
 Dim CurrentSheet As Worksheet
 Set CurrentSheet = ActiveSheet
Set Wkbk = ActiveWorkbook
Set WB = Workbook

    Application.ScreenUpdating = False ' turn off the screen updating

    WB.Close savechanges:=False ' close the source workbook without saving any changes
    Wkbk.Activate
    Application.ScreenUpdating = True ' turn on the screen updating
End Sub

 

[Marc L]

​

It seems you just forgot to initialize the useless variable object so try with the workbook name rather than via a variable …​

 

[Domenic]

With Set WB = Workbook, you're trying to assign a class type to your variable, instead of assigning a specific workbook. You'll need to specify a workbook, for example...

Set WB = Workbooks("Book2.xlsx")  'by name

or

Set WB = Workbooks(1) 'by index

or

Set WB = ThisWorkbook 'workbook running the code

 

[Bagsy]

Domenic
Brilliant, all so easy when you know, thank you so much.

Gary

 

[Domenic]

You're very welcome, cheers!