SplitVertical Property Example
This example sets the vertical split for the active window to 216 points (3 inches).
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate ActiveWindow.SplitVertical = 216