Hi, Med_MV,
add a loop to work on each cell which has been modified:
Ciao,![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim rngCell As Range For Each rngCell In Target With rngCell .ClearComments .AddComment ("Last Modified " & Date) .Comment.Visible = False End With Next rngCell End Sub
Holger
Bookmarks