Workbook BeforeClose Event Error

[dd]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Current Issues Log").Select
Selection.AutoFilter Field:=4, Criteria1:="<>Closed", Operator:=xlAnd
End Sub

I am using the above to autofilter my sheet before close. I am using this
identical code in two workbooks, which have the same worksheet names. It
works fine when I close one workbook at a time, but if I try to shut down
excel with both books open, I get a runtime error '1004' select method of
worksheet class failed.

Is there a way round this?

Regards
Dylan

 

[papou]

Hello
Change

Sheets("Current Issues Log").Select

To
Thisworkbook.Worksheets("Current Issues Log").Select

But you don't need to select your sheet, so you may consider using something
like:
Thisworkbook.Worksheets("Current Issues Log").Range("A1") _
..AutoFilter Field:=4, Criteria1:="<>Closed", Operator:=xlAnd

HTH
Cordially
Pascal

 

[dd]

Pascal

Thank you

Kind Regards
Dylan

Hello
Change

Sheets("Current Issues Log").Select

To
Thisworkbook.Worksheets("Current Issues Log").Select

But you don't need to select your sheet, so you may consider using something
like:
Thisworkbook.Worksheets("Current Issues Log").Range("A1") _
..AutoFilter Field:=4, Criteria1:="<>Closed", Operator:=xlAnd

HTH
Cordially
Pascal