Update cell with new date

[whyttedragun]

<style></style>I have a cell that has a date in it. I would like that cell to automatically update with a new date once the date in it is reached. Is this possible?

 

[Special-K99]

What would the new date be? How would you calculate what the new date should be?

Probably VBA approach until clarifciation of the above.

 

[whyttedragun]

<style></style>Specifically, the cell has the next pay date in it. I would like it to update to the next payday, 2 weeks later, on payday.

 

[Joe4]

Put this VBA code in the "ThisWorkbook" VB Module of that particular workbook.

Private Sub Workbook_Open()

    Dim shName As String
    Dim celAdd As String
    Dim dateDiff As Long


'   ***ENTER SHEET NAME TO APPLY TO***
    shName = "Sheet3"
'   ***ENTER CELL ADDRESS TO APPLY TO***
    celAdd = "A1"


'   Go to sheet
    Sheets(shName).Activate
    
'   Check date in cell
    dateDiff = Date - Range(celAdd)
    Do Until dateDiff < 14
        Range(celAdd) = Range(celAdd) + 14
        dateDiff = Date - Range(celAdd)
    Loop
        
End Sub

Just change the sheet name and cell address variables at the top to match your needs.