エクセル スクロール制限の解除方法

Sub Worksheet_Activate()
Set Rng = ActiveWindow.VisibleRange
X = Rng(Rng.Count).Row
ScrollArea = "A1:IV" & X
End Sub

以上のようなマクロを実行したのはよいのですが、
解除する方法がわからず困っております。
どなたか、お助け下さいますでしょうか。

よろしくお願い致します。

No.3 ベストアンサー 回答者： M-SOFT#2 回答日時： 2006/07/28 17:49

こんばんは。

ScrollAreaに何も設定しなければ良いです。

解除したいタイミングのイベントに

ScrollArea = ""

とすればいいでしょう。

No.2 回答者： o_chi_chi 回答日時： 2006/07/28 17:46

下記で解除できると思います。

---
Worksheets("対象シート").ScrollArea = ""

No.1 回答者： mshr1962 回答日時： 2006/07/28 17:45

ScrollArea = ""

で解除できませんか？