Using VBA how do I detect when any value in a worksheet changes?

Question

I have a worksheet that contains a few columns with hundreds of values. I want cell A1 to say \"Value Changed\" as soon as any value changes in the worksheet. I tried to make so

Answer 1

You can "temporarily UnDo" to retrieve the original value:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Where As String, Oldvalue As Variant, NewValue As Variant
   Application.EnableEvents = False
      Where = Target.Address
      NewValue = Target.Value
      Application.Undo
      Oldvalue = Target.Value
      Target.Value = NewValue
   Application.EnableEvents = True

   MsgBox Where & vbCrLf & Oldvalue & vbCrLf & NewValue
End Sub

This is only good for single cells.