On Thu, 07 Dec 2006 09:32:07 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:

The first two lines are doing nothing so you could delete them.

The Worksheet_Change code works for me.

If you want it available for all sheets place it in the Thisworkbook module

Thank you very much Gord, I didn't know that
That's another thing I've learnt today
--
Regards
Martin
©¿©¬

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Target.Interior.ColorIndex = 8
End Sub

Gord Dibben MS Excel MVP