Public Function UpdateExcelMacro(ByVal sFilename As String)
        If File.Exists(sFilename) Then
            Dim oExcel As Excel.ApplicationClass
            Dim oBook As Excel.WorkbookClass
            Dim oBooks As Excel.Workbooks
            On Error GoTo Errhandler
 
            oExcel = CreateObject("Excel.Application")
            oExcel.Visible = True
 
            oBooks = oExcel.Workbooks
            oBooks.Application.WindowState = Excel.XlWindowState.xlMinimized
 
            oBook = oBooks.Open(sFilename)
            oBook.Application.WindowState = Excel.XlWindowState.xlMinimized
 
            'Run the macros.
            'Dim p As New Process
            'Dim psi As New ProcessStartInfo(oExcel.Run("AutoProcessor"))
            'p.StartInfo = psi
            'p.Start()
 
            oExcel.Run("AutoProcessor")
            'Application.DoEvents()
 
            oBook.Save()
            'Clean-up: Close the workbook and quit Excel.
            oBook.Close(False)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
            oBook = Nothing
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
            oBooks = Nothing
            oExcel.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
            oExcel = Nothing
        End If
Errhandler:
    End Function