Returns or sets the location of the vertical window split, in points. Read/write Double.
This example sets the vertical split for the active window to 216 points (3 inches).
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.SplitVertical = 216