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 as

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


Gord Dibben MS Excel MVP

On Thu, 07 Dec 2006 13:44:33 GMT, Martin ©¿©¬ lid wrote:

Hi
I have a number of worksheets where the cell colour used to change to
Blue when an entry was made or edited
But it ain't doing it any more
--------------------------------------
This is the code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 8
End Sub
-------------------------------------------------
I didn't write the code, more likely someone created it for me
Would anyone know why the above code has stopped working
and how to fix it please ?