What is going on?

[Jennifer]

Can anyone give me any ideas why the first script is making the second not
work? The second runs fine until I run the first then the second no longer
works.
1st******
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit
Application.EnableEvents = False
If Target.Row = 3 And Target.Column = 3 Then
'calculate criteria cell in case calculation mode is manual
Worksheets("ProduceData").Range("s3").Calculate
Worksheets("ProduceData").Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("ProduceData").Range("s2:s3"), _
CopyToRange:=Range("a7:g7"), Unique:=False
Me.Range("c4").ClearContents
End If
ws_exit:
Application.EnableEvents = True
End Sub

2nd******
Sub UpdateInvoiceList()
'
' UpdateInvoiceList Macro
' Macro created by 4/27/2005 by Jennifer S. Klever
With Worksheets("ProduceData")
Application.EnableEvents = False
..Range("Invoice").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
"r2"), Unique:=True
..Range("InvoiceList").Sort Key1:=Sheets("ProduceData").Range("r3")
..Range("DatabaseSort").Sort Key1:=.Range("B1"), Order1:=xlAscending,
Key2:=.Range("C1"), Order2:=xlAscending, Header:=xlGuess
End With

Worksheets("Switchboard").Activate
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer

[Jennifer]

Ok,
Never mind I figured it out.
I didn't enablevents at the end. Thanks Jennifer
--
Though daily learning, I LOVE EXCEL!
Jennifer


"Jennifer" wrote:

> Can anyone give me any ideas why the first script is making the second not
> work? The second runs fine until I run the first then the second no longer
> works.
> 1st******
> Option Explicit
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> On Error GoTo ws_exit
> Application.EnableEvents = False
> If Target.Row = 3 And Target.Column = 3 Then
> 'calculate criteria cell in case calculation mode is manual
> Worksheets("ProduceData").Range("s3").Calculate
> Worksheets("ProduceData").Range("Database") _
> .AdvancedFilter Action:=xlFilterCopy, _
> CriteriaRange:=Sheets("ProduceData").Range("s2:s3"), _
> CopyToRange:=Range("a7:g7"), Unique:=False
> Me.Range("c4").ClearContents
> End If
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
> 2nd******
> Sub UpdateInvoiceList()
> '
> ' UpdateInvoiceList Macro
> ' Macro created by 4/27/2005 by Jennifer S. Klever
> With Worksheets("ProduceData")
> Application.EnableEvents = False
> .Range("Invoice").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
> "r2"), Unique:=True
> .Range("InvoiceList").Sort Key1:=Sheets("ProduceData").Range("r3")
> .Range("DatabaseSort").Sort Key1:=.Range("B1"), Order1:=xlAscending,
> Key2:=.Range("C1"), Order2:=xlAscending, Header:=xlGuess
> End With
>
> Worksheets("Switchboard").Activate
> End Sub
> --
> Though daily learning, I LOVE EXCEL!
> Jennifer