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
The code that needs to be copied is
Is there some paste special I can use to copy the code across.
Thanks
Code:
<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
Code:
<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]