Split windows : Excel « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Excel

Split windows

 
Sub SplitWindow()
  Dim freezeMode As Boolean, win As Window
  If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
 
  Set win = ActiveWindow
  freezeMode = win.FreezePanes
  win.FreezePanes = False
  
  If win.Split Then win.Split = False: Exit Sub
  win.SplitRow = ActiveCell.Row - win.ScrollRow
  win.SplitColumn = ActiveCell.Column - win.ScrollColumn
  win.FreezePanes = freezeMode
End Sub








Related examples in the same category

1.Get the Excel version
2.Turn row/column headers and gridlines on/off