Name Worksheet With Date Residing In A Cell

I am trying to create a macro that will copy a sheet, move it to the end and rename it it with the next date of the value of the date in a particular cell.

I can do the first part no problem, however I am stuck with naming the sheet with the date which is the next day from the date value in a cell.

i.e. If the date value in A1 of the copied and moved sheet is 11 Nov 2009 I need the next sheet to be called 12 Nov 2009 in that format (dd mmm yyyy)

This is the code that I have come up with so far, but it gets stuck at the bottom line

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(WS.Range("A1" + 1).Value, "dd mmm yyyy")

End Sub