VBA를 사용하여 다른 셀 값이 변경되거나 추가된 경우 셀에 오늘 날짜 삽입

Question

그래서 저는 이 스프레드시트를 팀과 공유하고 있으며 워크시트에 변경 사항이 있을 때마다 오늘 날짜를 셀에 넣을 수 있는 방법을 찾고 있습니다. 작동하는 코딩을 찾았지만 메시지가 팝업되는 것을 원하지 않습니다.오늘()D2 셀에 삽입합니다(시간은 필요 없고 날짜만 필요합니다). 어떤 도움이라도 도움이 될 것입니다.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:W160")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

' Display a message when one of the designated cells has been 
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub