Hi Ho .. Hi Ho ..
[vba]
Private Sub Workbook_Open()
Run "auto_save"
Application.OnTime Now + TimeValue("00:10:00"), "auto_save"
End Sub[/vba]
I have this running in this workbook .. workbook 'a'. Workbook 'a' collects information from 2 other workbooks 'b' & 'c'. When 'a' opens, the macro runs perfectly and runs every 10 minutes.
BUT .. after it has opened and new data is entered into either 'b' or 'c', this macros ceases to run. Any reason why this would stop?
I have included the macro 'auto_save' for reference
[vba]
Sub auto_save()
'
' auto_save Macro
' Macro recorded 6/01/2006
'
' This runs an auto save and auto sort
'
ActiveWorkbook.Save
Range("B7:R607").Select
Selection.sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B7").Select
Range("B7:BD106").Select
Selection.sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B7").Select
Range("B7:AW106").Select
Selection.sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B7").Select
End Sub[/vba]
Hope someone can solve why this macro stop running if new data is updated from 'b' and 'c'.