I'm using this code right now but would like to have an additional feature. Can this save and close unless the user hits a key or command button. That way when it opens I can be kept open if someone wants to view it longer. I will have this open, save and close once a day to keep it updated. Thanks
Code:
Private Sub Workbook_Open()
Dim R As Range
Dim Sht As Worksheet
Dim Cel As Range
Set Sht = Sheets("Data")
Set R = Sht.Range("B4:B27,K4:K27,T4:T27")
For Each Cel In R
If Cel.Value < 0 Then
If Cel.Offset(0, 8).Value = "" Then Cel.Offset(0, 8) = Date
ElseIf Cel.Value >= 0 Then
Cel.Offset(0, 8).ClearContents
End If
Next Cel
Set R = Sht.Range("T4:T27")
For Each Cel In R
If Cel.Value = 0 Then Cel.Offset(0, 9) = Date
Next Cel
Set R = Sht.Range("C32:C37")
For Each Cel In R
If Cel.Value = 0 Then Cel.Offset(0, 2) = Date
Next Cel
Selection.ClearComments
Application.CalculateFull
ActiveWorkbook.Save
End Sub