You can only have one "Worksheet_Change" procedure per sheet!
You would have to combine it into the one, something like this:
By the way, if you use Code tags when posting your code, your code will look nicer (like mine!), as long won't lose all the formatting.Code:Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim myRange As Range Dim isect As Range If Target.Count > 1 Then Exit Sub If Target.Address(False, False) = "B2" Then Call TitleCheck If Target.Address(False, False) = "F2" Then Call DateCheck Set myRange = Range("A11:G23") Set isect = Intersect(Target, myRange) If isect Is Nothing Then Exit Sub If Application.WorksheetFunction.CountIf(myRange, Target) = 1 Then Sheets("Timesheet").Cells.Copy Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Name = Target.Value & " Timesheet" End If Application.Goto Worksheets("Weekly Labour").Range("A5") Application.ScreenUpdating = True End Sub
Just paste the code, highlight it, and click on the Code tags button from the Editor menu (looks like a hash tag icon).