I am using Excel 97.

I have the following code which I want to put behind each worksheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlColorIndexNone

Range("DaysOutstanding").Interior.ColorIndex = 6
Range("Number").Interior.ColorIndex = 17

Range("A7:A100").Interior.ColorIndex = 35
Range("B7:B100").Interior.ColorIndex = 19
Range("C7:C100").Interior.ColorIndex = 34
Range("D7:D100").Interior.ColorIndex = 35
Range("E7:E100").Interior.ColorIndex = 34

Target.EntireRow.Interior.ColorIndex = 36

End Sub

Is there a routine that I can use to import this in so I don't have to click
on 200 worksheets, please?
--
Mark