Date "E2" to add 7 days How?

[Corey]

I think this is quite simple but i want to create a short code to add 7 days
to a date in cell E2.
The cell is formatted so it display a date in a 31 October 2006 view.

Please help.


Regards

Corey

 

[Corey]

Never mind worked it out.

activecell.FormulaR1C1 = [E2] + 7


Regards

Corey

 

[Corey]

How about adding 7 days to ALL sheets that have a date in Cell E2 ?

 

[Corey]

Ok, i have done it the hard way by a macro for each sheet.

But i have a max on 3 other sheets (Not Yet Created) that i need the cell
E2 to have 7 days added to also.

I want to add a step to the below code for each sheet, that checks to see if
that sheets exists 1st.
If not then exits sub.



~~~~~~~~~~~~~~~~~~~
Sub Sheet15UpdateDate()
Sheet15.Select ' <=================== How do i check to see if this is a
sheet or not 1st ???
Range("E2").Activate
If Range("E2").Value <> "" Then
activecell.FormulaR1C1 = [E2] + 7
End If
Sheet4.Select
End Sub


~~~~~~~~~~~~~~~~~~

 

[Corey]

solved


Corey