Hi,

I am trying to freeze pane but keeps getting the "Obj doesn't support
this property" error. Here is my code and the error message. Any
suggestion would really be appreciated. Thanks in advance.

Joanna

'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************

Function Main()
Set objXL = CreateObject("Excel.Application")
set objWB = objXL.Workbooks.Open("C:\test1.xls")
Set objWS1 = objWB.Worksheets("Sheet1")

objws1.Rows("2:2").FreezePanes = True

objWB.Save
objxl.quit
Main = DTSTaskExecResult_Success
End Function

================================================== ========

Package Error

Error Source : Microsoft Data Transformation Services (DTS) Package

Error Description : Error Code : 0
Error Source = Microsoft VBScript Runtime error
Error Description : Object doesn't support this property or method:
'objWS1.Rows(...).FreezePanes'

Joan,

objws1.Rows("2:2").Select
objXL.ActiveWindow.FreezePanes = True

Ilya

"Joann" <jcma76 (AT) yahoo (DOT) com> wrote