Sub insert_pagebreak()
	ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
	'アクティブセルの前に水平な改ページを挿入します
    	ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
	'アクティブセルの前に垂直な改ページをそうにゅうします
End Sub