Workbooks.open method - vbs code

Hi Guys

I have a bit of a problem. i have created an excel file that calculates leave for every calender week. i have installed the analysis toolpak add in and used the = weeknum() function. . it all works great when i open the file by clicking the .xls file.

The problem i have is when i open the vbs file that i have created to open this .xls daily and update it. it opens the file but does not display the weeknumbers and saves the .xls file without weeknumbers.The file size varies when i open the file directly as opposed to opening it via vbs. i am definately missing something.

thanks in advance

the vbs code i use is

xlApp = CreateObject("Excel.Application") 

		xlApp.Visible = true

		Set xlFile = xlApp.Workbooks.Open("R:\Production planning Control\LEAVE EXPORT\Leave Analysis.xls",,false,,,"1",true) 
		
		
		xlApp.Run("Auto_Open") 

		xlapp.DisplayAlerts = False

		xlapp.ActiveWorkbook.close true

                xlapp.quit