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
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" <dd.dd a écrit dans le message de news:
...
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

Pascal

Thank you

Kind Regards
Dylan

"papou" wrote in message
...
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" <dd.dd a écrit dans le message de news:
...
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