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