シートの更新日を表示する

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
'マクロ記録日 : 2008/10/1 ユーザー名 : donna
Set Rng = Range("b3") '更新された日付表示するセル

On Error GoTo ErrHandler
Application.EnableEvents = False
Rng.Value = Date
ErrHandler:
Application.EnableEvents = True
End Sub

シートタブ上で右クリック⇒「V」Enter⇒貼り付け⇒B3セルをクリックEnter