activating a sub procedure when any cell is changed anywhere in workbook

Question

Could anyone please tell me how do I make my sub procedure run, if any cell in the workbook has it's value changed. I know it has something to do with the workbook.sheetchange event but I can't quite figure it out. Thanks in advance :).

Answer 1

In the ThisWorkbook code module:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
                                ByVal Target As Range)

    Debug.Print "Range " & Target.Address() & _
         " was changed on sheet '" & Sh.Name & "'"

End Sub