You can create an application event.
1)Insert a code module, use the properties window to change its name to appEvent, and put this code in it.
Public WithEvents allXL As Application
Private Sub allXL_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Rem your code
End Sub
2) Put this in a normal code module
Dim appEvents As New appEvent
Sub startUp()
Set appEvents.allXL = Application
End Sub
startUp needs to run to declare the application event, so this in ThisWorkbook
Private Sub Workbook_Open()
Call startUp
End Sub
The your code will run whenever a cell is changed in any open workbook.
Bookmarks