Copy code when Copying worksheet

[twl2009]

I have used this bit of code to copy a worksheet, unfortunately there is a small bit of code that is in the original sheet, but doesn't copy across.

Is there some paste special I can use to copy the code across.

Thanks

<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff; min-height: 13.0px}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; background-color: #ffffff; min-height: 13.0px}span.s1 {color: #011993}</style>Set MyActiveCell = ActiveCell
        Sheets("Timesheet").Cells.Copy
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        Application.CutCopyMode = False
        
        ActiveSheet.Name = Target.Value
  
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.SplitColumn = 0
        ActiveWindow.SplitRow = 3
        ActiveWindow.FreezePanes = True
        ActiveSheet.Range("A1:AA200").Locked = True
        ActiveSheet.Range("D12:M18").Locked = False
        ActiveSheet.Range("M7:P7").Locked = False
        ActiveSheet.Range("Q12:Q18").Locked = False


        ActiveSheet.Range("D12").Select
        ActiveSheet.Protect


        Sheets("Labour Week").Activate
[COLOR=#000000][FONT=Menlo]        Application.Goto MyActiveCell
[/FONT][/COLOR]

The code that needs to be copied is

<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; background-color: #ffffff; min-height: 13.0px}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff; min-height: 13.0px}p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #011993; background-color: #ffffff}span.s1 {color: #011993}span.s2 {color: #000000}</style>Private Sub Worksheet_Change(ByVal Target As Range)


  
    If Target.Count > 1 Then Exit Sub
    
    If Target.Address(False, False) = "K2" Then Call SaveSheet


[COLOR=#011993][FONT=Menlo]End[/FONT][/COLOR][FONT=Menlo] [/FONT][COLOR=#011993][FONT=Menlo]Sub
[/FONT][/COLOR]

 

[twl2009]

cheers BarryL, thats cracked it.

 

[Norie]

When you copy a sheet the new sheet should automatically become the active sheet.