Option Explicit
Dim Tmp$
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Intersect(Target, [m2]) Is Nothing And [m2].Value <> Tmp Then
Application.EnableEvents = False
[w2] = Format(Now, "ddd dd mmm yyyy hh:mm:ss")
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Tmp = [m2].Value
End Sub