VBA Question

[Utterly Bamboozled]

Could someone please tell me why this code keeps crashing Excel??

'
Sheets("Timesheet").Select
Sheets("Timesheet").Copy Before:=Sheets(5)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Timesheet (2)").Select
Sheets("Timesheet (2)").Name = Range("C6").Value
Range("C6:E6").Select
Application.CutCopyMode = False
End Sub

Thanks!

 

[AlphaFrog]

Sub Export()
    
    [COLOR="Red"]Dim nm As Name[/COLOR]
    
    Sheets("Timesheet").Copy Before:=Sheets(5)
    
    ActiveSheet.Unprotect Password:="Secret"
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
[COLOR="Red"]    For Each nm In Names
        If nm.Parent.Name = ActiveSheet.Name Then nm.Delete
    Next nm[/COLOR]
    
    On Error Resume Next
    ActiveSheet.Name = Range("C6").Text
    On Error GoTo 0
    
    If ActiveSheet.Name <> Range("C6").Text Then MsgBox "Couldn't rename the sheet as " & Range("C6").Text
    
    ActiveSheet.Range("C6:E6").Select
    
End Sub