How do I set a date formula in the page setup header to add 10

[phil@work]

Need to display todays date plus 10 in the page setup header.

 

[CLR]

This macro should do it.........

Sub DatePlus10ToHeader()
With ActiveSheet.PageSetup
.LeftHeader = Month(Date) & "/" & Day(Date) + 10 & "/" & Year(Date)
End With
End Sub


Vaya con Dios,
Chuck, CABGx3

 

[Dave Peterson]

I think I'd use:

Sub DatePlus10ToHeader()
With ActiveSheet.PageSetup
.LeftHeader = format(date+10,"mm/dd/yyyy")
End With
End Sub

When you concatenated the string, day(date)+10 might not be the day you want.

 

[CLR]

Agreed Dave.......thanks for making the point.

Vaya con Dios,
Chuck, CABGx3