Save Delay

[raccoon588]

I have the following code. Is it possible to delay the save by a minute? so once the change is made to the cells it will save the workbook a minute later?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K6:k8800"), Target) Is Nothing Then ActiveWorkbook.Save
If Not Intersect(Target, Range("K:K")) Is Nothing Then

 

[Logit]

.

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Intersect(Range("K6:k8800"), Target) Is Nothing Then 
	Application.Wait (Now + TimeValue("0:01:00"))
	ActiveWorkbook.Save
End If


If Not Intersect(Target, Range("K:K")) Is Nothing Then

 

[raccoon588]

is there a way that if i remove the save on the value change that i can simply just auto save the file every 15 mins?

 

[Logit]

.

Option Explicit


Sub sveMe()
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.OnTime Now + TimeValue("00:15:00"), "sveMe"
    Application.DisplayAlerts = True
End Sub