Thanks for your time bud.

I can't seem to get it to work. Here's the code.

Sub Macro3()

Dim WS As Worksheet, WB As Workbook

Set WB = ActiveWorkbook
Set WS = WB.ActiveSheet

WS.Copy After:=Sheets(WB.Sheets.Count)
WS.Name = Format(Wks.Range("A1") + 1, "dd mmm yyyy")

End Sub