Cacher is the code snippet organizer for pro developers

Dim dTime As Date

Sub RoutineName()

'	Change cursor optionally
	Application.Cursor = xlWait
    
'   Timer indítása
    dTime = Now + TimeValue("0:00:03")
    Application.OnTime dTime, "RoutineName"
    
	'...STATUSBAR..............................................
    Application.StatusBar = "Whatever"
	'..........................................................

	''''''''''''''''
	'Actions
	''''''''''''''''
    
End Sub

Sub CancelOnTime()
    On Error Resume Next
    Application.OnTime dTime, "RoutineName", , False
        
'   Restore Cursor and StatusBar
    Application.Cursor = xlDefault
	Application.StatusBar = False
    
    Debug.Print "Routine Ended"
       
End Sub