>***Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate > > >With oExcel.ActiveWindow > .SplitColumn = 5 && Column # where you want to split and freeze pane > .SplitRow = 5 && Row # where you want to split and freeze pane > .FreezePanes = .t. >EndWith > > >*** To Unfreeze > >With oExcel.ActiveWindow > .FreezePanes = .f. > .SplitColumn = 0 > .SplitRow = 0 >EndWith >