Sheet Change Timer

[Chuckarou]

Hi all,
I was wondering if it was possible to make my workbook change form any current sheet to Sheet1 if it is left untouched for more then 5 minutes.

I've looked around for solutions, but couldn't find anything to suit my needs.

Thanks in advance,
Chuckarou

 

[Logit]

.
Paste in ThisWorkbook Module :

Option Explicit


Private Sub Workbook_Open()
    StartTimer
End Sub


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

Paste in a Routine Module :

Option Explicit


Const idleTime = 30 'seconds
Dim Start
Sub StartTimer()
    Start = Timer
    Do While Timer < Start + idleTime
        DoEvents
    Loop
    
    Sheets("Sheet1").Activate
    Sheets("Sheet1").Range("A1").Select
   
End Sub

Timer presently set for 30 seconds. You can edit the seconds from 30 to 300

Download workbook : https://www.amazon.com/clouddrive/share/VmpKfXmdKttUOY1ig0w1GcVd3TmlbxzLVntFNj4sJzP

 

[Chuckarou]

Thank you so much, it works perfectly!!

 

[Logit]

.
You are welcome.