VB Code:
[color="#0000A0"]Private[/color] [color="#0000A0"]Sub[/color] Workbook_SheetChange([color="#0000A0"]ByVal[/color] Sh [color="#0000A0"]As[/color] [color="#0000A0"]Object[/color], [color="#0000A0"]ByVal[/color] Target [color="#0000A0"]As[/color] Range)
lngTimeSinceUsed = 0
[color="#0000A0"]End[/color] [color="#0000A0"]Sub[/color]
With this in the timer (possibly using the settimer API call set at a minute interval):
VB Code:
[color="#0000A0"]Sub[/color] TimerProc([color="#0000A0"]ByVal[/color] hwnd [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color], [color="#0000A0"]ByVal[/color] nIDEvent [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color], _
[color="#0000A0"]ByVal[/color] uElapse [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color], [color="#0000A0"]ByVal[/color] lpTimerFunc [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color])
lngTimeSinceUsed = lngTimeSinceUsed + 1
Doevents
[color="#0000A0"]If[/color] lngTimeSinceUsed = 10 [color="#0000A0"]Then[/color]
[color="#00A000"]' Kill Excel & Exit the timer![/color]
[color="#0000A0"]End[/color] [color="#0000A0"]If[/color]
[color="#0000A0"]End[/color] [color="#0000A0"]Sub[/color]