how to add a date when opening up the worksheet

thanks logit and richard.

winon, i like your code but i changed the "Range("G1").Value to 7 and now it works the way i was expecting it to. Thanks very much for your code. Gold stars all around.

so nevermind, i figured it out. just needed to source the range, like so:

Private Sub Workbook_Open()
    
    If MsgBox("Should the date be updated at this time ? ", vbCritical + vbYesNo, ("Confirmation Required")) = vbYes Then
    Sheets("HWI").Range("B1").Value = Sheets("HWI").Range("B1").Value + 7
    Else: Range("B1").Value = Range("B1").Value
    Exit Sub
    End If

End Sub