Dim oExcel As Excel.Application
Dim oWorkbook As Workbook
Dim oWorksheet As Worksheet

Set oExcel = New Excel.Application
Set oWorkbook = oExcel.Workbooks.Open(FileName:="C:\WorkbookName.x ls",
_
UpdateLinks:=0, _
IgnoreReadOnlyRecommended:=True)
Set oWorksheet = oWorkbook.Sheets("SheetName")

' update oWorksheet

oWorkbook.Close (SaveChanges:=True)
oExcel.Quit

Phil Hibbs.
--