Macro (Module) to copy macro (sheet) to a sheet

[tuneloon]

I have a long macro set up which creates multiple sheets with various data which works great.

I would like to add the following code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Pattern = xlNone
Rows(Target.Row).Interior.Color = 15773696
End Sub

to each of the individual sheets at the end of the macro, so that when the person doing the research is adding specific data they can easily tell which line they are on.

Each of the sheets are added and renamed in the macro

Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "Discount"

I can't figure out how to code the module to add the code to each sheet.


Any suggestions?

[Norie]

Use the workbook level event SheetSelectionChange.

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

End Sub