Sub 列の非表示( )
  Columns("E:E").Select
  Selection.EntireColumn.Hidden = True
End Sub
----------------------------------------------------------------------
Sub 列の表示 ON( )
  Columns("E:E").Select
  Selection.EntireColumn.Hidden = False
End Sub

Sub 垂直スクロール ON( )
  ActiveWindow.DisplayVerticalScrollBar = True
  Range("A1").Select
End SUB
----------------------------------------------------------------------
Sub 垂直スクロール OFF( )
  ActiveWindow.DisplayVerticalScrollBar = False
  Range("A1").Select
End Sub
----------------------------------------------------------------------
Sub 水平スクロール ON( )
  ActiveWindow.DisplayHorizontalScrollBar = True
  Range("A1").Select
End Sub
----------------------------------------------------------------------  Sub 水平スクロール OFF( )
  ActiveWindow.DisplayHorizontalScrollBar = False
  Range("A1").Select
End Sub
----------------------------------------------------------------------
Sub 行列番号 ON( )
  ActiveWindow.DisplayHeadings = True
  Range("A1").Select
End Sub
スクロールバー
行列番号
 
基本的なマクロの習得
スクロールバーと列と行の表示・非表示


実際に使っているシステムの内容で解説
  EXCEL VBA 講座