This example displays the number of panes in the active window in Book1.xls.
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
MsgBox "There are " & ActiveWindow.Panes.Count & _
" panes in the active window"
This example activates the pane in the upper-left corner of the active window in Book1.xls.
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.Panes(1).Activate