(untested code):

'------------------------------------
With Range("A1")
.Value = .Value + 1
End With

With Range("B1")
.Value = .Value + 7
End With

Range("A2,C6,C8,D9,F2,F5,B10").ClearContents
'-----------------------------------

HTH
--
AP

"Chris Watson" a
écrit dans le message de
news:Chris.Watson.24g7ym_1141985404.6377@excelforu m-nospam.com...

I need to add 7 days to a date I have in a cell using VBA.
I have a Command Button that I want to clear specific cells and add
7days to a date and increace a week number by 1, Is it possible the
have a VBA code that will do all this on a command button. The Week
Number cell on the worksheet is A1, the date is B1, and the specific
cell I want to clear is A2,C6,C8,D9,F2,F5, and B10.


--
Chris Watson
------------------------------------------------------------------------
Chris Watson's Profile:
http://www.excelforum.com/member.php...fo&userid=4700
View this thread: http://www.excelforum.com/showthread...hreadid=520970