You can cut the event code from the worksheet and place it in ThisWorkbook
module.

To acces ThisWorkbook module, right-click on the Excel Icon left of "File" on
worksheet menu bar and select "View Code".

Once pasted..........................

Change Private Sub Worksheet_Change(ByVal Target As Range) line

to

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Will now run for all sheets.


Gord



On Thu, 4 Oct 2007 09:54:11 -0700, Clark
wrote:

Thanks again!!!

Now one last question: since each page in my workbook corresponds to one day
of activity is there any way to make the routine apply to the whole workbook?
or do i need to copy/paste the routine as code for each worksheet?