Sub edit_jump()
	Application.Goto Reference:=Range("A1"), _
	'A1にジャンプします
	Referenceにはセルの名前を指定することもできます。
	Scroll:=True
	'ウィンドウのスクロールを許可します
End Sub