Computating Dates based on date in a cell

[gemcgraw]

I know this has to be so simple and easy but I'm totally drawing a blank. I don't want to use simple in-cell formulas to accomplish this as it can be easily wiped out. I'd rather do a behind-the-scene VB coding.

I need to take Monday's date in cell A1 and calculate Tue-Fri dates in B1, C1, D1, and E1 based on A1. Thanks

 

[JackDanIce]

Try:

Sub DateCalc()

Application.ScreenUpdating = False

For i = 2 To 5
    Cells(1, i) = Range("A1") + i - 1
Next i
Range("A1:E1").EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

 

[gemcgraw]

That is exactly what I need. Thank you so much Jack!

Try:

Sub DateCalc()

Application.ScreenUpdating = False

For i = 2 To 5
    Cells(1, i) = Range("A1") + i - 1
Next i
Range("A1:E1").EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

 

[JackDanIce]

You're welcome