Private Sub Worksheet_Change(ByVal Target As Excel.Range) MsgBox "Range " & Target.Address & " was changed." End Sub