Workbook BeforeClose Event Error

  • Thread starter Thread starter dd
  • Start date Start date
D

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
 
Hello
Change
Sheets("Current Issues Log").Select
Click to expand...
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
 
Pascal

Thank you

Kind Regards
Dylan

Hello
Change
Sheets("Current Issues Log").Select
Click to expand...
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
 
Back
Top