VBA/Excel/Access/Word/Excel/Excel

Get the Excel version

 
Public Sub Version()
  MsgBox Application.Version
End Sub

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

Turn row/column headers and gridlines on/off

 
Sub ToggleHeadingsGrids()
  Dim gridMode&, headingsMode&
 
  On Error Resume Next
 
  headingsMode = ActiveWindow.DisplayHeadings
  gridMode = ActiveWindow.DisplayGridlines
 
  If headingsMode And Not gridMode Then
    headingsMode = False
  ElseIf Not headingsMode And Not gridMode Then
    gridMode = True
  ElseIf Not headingsMode And gridMode Then
    headingsMode = True
  Else
    gridMode = False
  End If
 
  ActiveWindow.DisplayHeadings = headingsMode
  ActiveWindow.DisplayGridlines = gridMode
End Sub