Code Automation Issue with Refresh

[DBSSP]

I'm currently having a problem with my code. The workbook is saving and exiting immediately, interuppting the refreshall command. Is there anyway I can stop this from happening while maintaining the transparency.


Begin Code
***********************************************************
Function UpdateRatio()

Dim XL As Excel.Application


Set XL = New Excel.Application

XL.Workbooks.Open "J:\Tracker Database\Tracker\Scheduling by TL\Schedule Ratio.xls"
XL.Application.DisplayAlerts = False
XL.ActiveWorkbook.RefreshAll
XL.ActiveWorkbook.Save
XL.Application.Quit

Set XL = Nothing
MsgBox "Updates completed successfully!", vbOKOnly, "Update Success"

End Function
***********************************************************
End Code

Jay

 

[gvreyes]

Clear the check box for Enable Background Refresh of your Excel Worksheet (Data/Get External Data/Data Range Properties).