Hi

I have a timesheet spreadsheet which I use to record the work I'm doing. Every week I create a new sheet. I have created a macro that automatically copies the sheet "Wk End 4 Jul" and clears the content, but I would like it to name the tab using the following format "Wk End d mmm" where the d mmm represents the Friday of the week which I'm creating it for. Can anybody advise how I adapt my exisiting macro to add this functionality as you will see I intitiate the macro with Ctrl+Shift+N:

Sub NewSheet()
' NewSheet Macro
' Creates a new sheet
' Keyboard Shortcut: Ctrl+Shift+N
Sheets("Wk End 4 Jul").Select
Sheets("Wk End 4 Jul").Copy After:=Sheets(13)
Sheets("Wk End 4 Jul (2)").Select
Sheets("Wk End 4 Jul (2)").Name = "Wk End d mmm"
Range("B4:D92").Select
Selection.ClearContents
Range("G4:H57").Select
Selection.ClearContents
Range("L4:L92").Select
Selection.ClearContents
Range("E91:F91").Select
Selection.AutoFill Destination:=Range("E4:F91"), Type:=xlFillDefault
Range("C4").Select

End Sub

I suspect there is an issue with the above code in that it puts the new sheet "After" the 4 Jul sheet which is fine for this weeks tab (11 Jul) but will mean that the 18 Jul tab will be out of order.

Thanks in advance.

Chris