Play a sound when a new high is detected

I'm trying to play a sound if any cell in the range N3:N300 changes to the word 'Highest'.

The cells in the range contain formulas and only show the word 'Highest' as a result of a MAX calculation on range P3:P300.

Effectively , if the cell in N3:N300 changes to the new 'Highest' , then it should play the sound. It would only play when there is a change in the highest.

For example if the highest cell is N145 and there is no change then no sound need be played. If it changes to say N55 then a sound would play.

Can someone offer some event code to satisfy this?


Grateful for any advice.

You may try such code in Sheet1 module:

Please Login or Register  to view this content.

and to start from the first change add such code in ThisWorkbook module:

Please Login or Register  to view this content.

Many thanks. I have got this working so I am grateful.

I wonder if it possible to modify the code to work on the current worksheet , whatever it is called rather than 'Sheet1'? I'd like it to work on whichever worksheet is open.

If there are just few sheets you could insert almost identical procedures in each sheet module. So for sheet2 it could be:

Please Login or Register  to view this content.

and the code in this workbook could be:

Please Login or Register  to view this content.

If more than few sheets, probably whole process shall be redesigned maybe with the use of Sheet_calculate event handler in ThisWorkbook module (I'm not 100% sure it was available in excel 2003 :-/)

Ok That's fine.Thanks very much for your time and expertise.

I was hoping there might be an ActiveSheet method for the code to run on the current worksheet without needing to name it specifically. My worksheet has 12 sheets so would need a lot of specific changes otherwise.