[セルを移動して左上に表示する]

*たとえば、C25からB4に移動して、B4を左上に表示する例です。指定したセルに移動して、左上に表示したいという場合に便利です。　

---

Sub moveLeft()

　'セルを移動して左上に表示する
　Application.GoTo Reference:=Range("$B$4"), Scroll:=True

End Sub