in cell A1 i have 25-May-2009 in date format ddmmmyyyy.

I would like to add 7 days to this date on a button click, which will run some other end of week sheet cleaning code also.

this is what i have

Private Sub CommandButton1_Click()
Dim WS As Date
Range("a1").Value = WS
Format (Range("a1") = WS + 7), mmddyyyy
End Sub