表示領域（スクロールエリア）の設定]

---

[表示領域（スクロールエリア）の設定/解除]

Sub myAreaOn()

　MsgBox "スクロールエリアを設定します。"

　ActiveSheet.ScrollArea = "A1:D65536" 'スクロールエリア　設定


End Sub

---

Sub myAreaOff()

　MsgBox "スクロールエリアを解除します。"

　ActiveSheet.ScrollArea = "" 'スクロールエリア 解除


End Sub