I need to insert a date in the Storage Date column whenever something is added to the Contents List column. Then, the Expiration Date column needs to have the current date plus 60 days. I'm running the following macro in it, but it is not working. Strange part is, I have used this exact same code in other workbooks, and it has worked. Am I not saving it properly? Is there some setting that is not correct? I have attached the workbook to this post. It is also saved as a macro enabled workbook.
I have noticed that when i click "run", the Worksheet_Change name does not show up in the menu. Is this because it is private? Is Excel not seeing it?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D61")) Is Nothing Then
Target.Offset(0, 1) = Now()
Target.Offset(0, 2) = Now() + 60
End If
End Sub
Thank you for your help!
Bookmarks