This code works. I just wanted to know if there is any any furthur simplification that can be done to improve it.
Thank you for any feedback to help me improve.
*resourcse have been provided as well
Private Sub Worksheet_Activate()
'https://stackoverflow.com/questions/1983649/how-do-i-express-if-value-is-not-empty-in-the-vba-language
If Format(Now(), "DDD") = "Mon" And ThisWorkbook.Sheets("Charts").Range("D4").Value <> "" Then
'run monday code
MsgBox "Remember to Clear out the Charts. It's a new week"
End If
End Sub
