I have code that is run when you do a cell change "Worksheet_Change"
normally everything seems to work fine but once and a while the code just
decides to stop firing. The only way to get it working again is to manually
fire the "Worksheet_Change" event. Any ideas?

As a WAG in your code somewhere you are using

Application.EnableEvents = false

As a guess the corresponding

Application.EnableEvents = true

is missing or your sub exits/ends prior to running that line of code... The
other possibility is that you have generated an error which halts the code
prior to turning the events back on.

HTH


"HotRod" wrote:

I have code that is run when you do a cell change "Worksheet_Change"
normally everything seems to work fine but once and a while the code just
decides to stop firing. The only way to get it working again is to manually
fire the "Worksheet_Change" event. Any ideas?

Sounds like you disable events in your code and don't properly reenable
them. Perhaps if you posted the code, someone could give you a clue.

--
Regards,
Tom Ogilvy


"HotRod" wrote in message
...
I have code that is run when you do a cell change "Worksheet_Change"
normally everything seems to work fine but once and a while the code just
decides to stop firing. The only way to get it working again is to
manually
fire the "Worksheet_Change" event. Any ideas?

I've actually turned of all of the Application.EnableEvents = false code in
my code, I'm wondering if an error will cause this problem? Is it possible
that an error is occurring that just jumps out of the macro?

One other question I've been googling for an example of how to Sort more
than three columns at a time and depending on where I look some sites say
that it's not possible. This is the code I'm using below.


Range("A" & First_Data_Row & ":AA55550").Sort Key1:=Range(First_Column &
First_Data_Row), _
Order1:=xlAscending, Key2:=Range(Second_Column & First_Data_Row), _
Order2:=xlAscending, Key3:=Range(Third_Column & First_Data_Row), _
Order3:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Excel uses a persistent sort. You can sort on all 256 columns if you like,
but you have to sort 3 at a time. Start with the least significant to the
most significant.

--
Regards,
Tom Ogilvy



"HotRod" wrote in message
...
I've actually turned of all of the Application.EnableEvents = false code
in
my code, I'm wondering if an error will cause this problem? Is it possible
that an error is occurring that just jumps out of the macro?

One other question I've been googling for an example of how to Sort more
than three columns at a time and depending on where I look some sites say
that it's not possible. This is the code I'm using below.


Range("A" & First_Data_Row & ":AA55550").Sort Key1:=Range(First_Column &
First_Data_Row), _
Order1:=xlAscending, Key2:=Range(Second_Column & First_Data_Row),
_
Order2:=xlAscending, Key3:=Range(Third_Column & First_Data_Row), _
Order3:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Do you turn the events back on by setting

Application.EnableEvents = true

at the end of the procedure? This needs to be done otherwise events are off
until you explicitly turn them back on... Post your code.

As for sorting Tom is correct. If you want to sort by Column A then B then C
then D then E then F, just do it in reverse. Sort By F then E then D then C
then B then A. If that does not make sense then just reply.

HTH

"HotRod" wrote:

I've actually turned of all of the Application.EnableEvents = false code in
my code, I'm wondering if an error will cause this problem? Is it possible
that an error is occurring that just jumps out of the macro?

One other question I've been googling for an example of how to Sort more
than three columns at a time and depending on where I look some sites say
that it's not possible. This is the code I'm using below.


Range("A" & First_Data_Row & ":AA55550").Sort Key1:=Range(First_Column &
First_Data_Row), _
Order1:=xlAscending, Key2:=Range(Second_Column & First_Data_Row), _
Order2:=xlAscending, Key3:=Range(Third_Column & First_Data_Row), _
Order3:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

I will give it a try.

THANKS

Also, don't forget that if you are either stepping through your code or it
errors out *before* you turn events back on, you will need to do so
manually. If this is the case, you may use a routine, something like ...

Sub ResetAppAttributes()
With Application
.Screenupdating = True
.Displayalerts = True
.Enableevents = true
.Statusbar = False
.CutCopyMode = False
End with
End Sub

Or something like that. HTH

--
Regards,
Zack Barresse, aka firefytr

"HotRod" wrote in message
...
I've actually turned of all of the Application.EnableEvents = false code
in
my code, I'm wondering if an error will cause this problem? Is it possible
that an error is occurring that just jumps out of the macro?

One other question I've been googling for an example of how to Sort more
than three columns at a time and depending on where I look some sites say
that it's not possible. This is the code I'm using below.


Range("A" & First_Data_Row & ":AA55550").Sort Key1:=Range(First_Column &
First_Data_Row), _
Order1:=xlAscending, Key2:=Range(Second_Column & First_Data_Row), _
Order2:=xlAscending, Key3:=Range(Third_Column & First_Data_Row), _
Order3:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom