VBA question for an Excel Macro

[scolivas]

I don't know if this is the right place to ask or not...so here it goes...

I have an excel spreadsheet with a macro that refreshes data which is pulled from an external data source, which happens to be Access Database Query which pulls data from an SQL Server DB - when there is an ODBC Failure - all other reports that are scheduled get hung up - is there a way to force the application to quit if there is an ODBC Failure/Timeout? Or any other errors for that matter - so the other reports are free to run? - Or is there away to force the macro's to restart until they run sucessfully?

The macro I currently have is as follows:

 
Private Sub Workbook_Open()
    Sheets("DATA - DO NOT TOUCH!").Select
 
    ' "An Attempt to Refresh" Tag'
    Sheets("DATA - DO NOT TOUCH!").Select
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("N2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.Save
 
    ActiveWorkbook.RefreshAll
 
    Sheets("DATA - DO NOT TOUCH!").Select
    Range("N5").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("N5").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Sheets("Current Rotation").Select
    Range("a1").Select
 
 
 
    ActiveWorkbook.Save
    Application.Quit
End Sub
 
 

Thanks in advance for any help!
Sophie