Hi,

Can someone please tell me why this set of codes do not work?
I am getting an error message saying:

Error Code: 0
Error Source: Microsoft VBScript Compilation error
Error Description: Expected Statement
Error on Line: 22

Thanks.
This is my entire code in my DTS package.
-------------------------------------------------------------------------------------------------
'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************

Option Explicit

Function Main()

Dim Excel_Application
Dim Excel_WorkBook
Dim Excel_WorkSheet

Dim sFilename
Dim sSheetName

sFilename = "F:\test.xls"

Set Excel_Application = CreateObject("Excel.Application")

Set Excel_WorkBook = Excel_Application.Workbooks.Open(sFilename)

Excel_WorkBook.Worksheets("Results").Cells.Select
'PROBLEM AREA

'---------------------------------------------------------------------------------------------------
Excel_WorkBook.Worksheets("Results").Cells.Subtota l GroupBy:=1, _
Function:=xlSum, TotalList:=Array(3, 4, 5),
Replace:=True, _
PageBreaks:=False, SummaryBelowData:=True

'---------------------------------------------------------------------------------------------------
Excel_WorkBook.Worksheets("Results").Range("G20"). Select

Excel_Workbook.Save

Set Excel_WorkSheet = Nothing
Excel_WorkBook.Close
Set Excel_WorkBook = Nothing
Excel_Application.Quit
Set Excel_Application = Nothing

Main = DTSTaskExecResult_Success
End Function