I have Excel 2003 and i don't need to reopen the spreadsheet


I use A1 and A2 on sheet2 to define the upper left and bottom right cells

Sub setscroll()
Dim myrange As String
myrange = Sheet2.Range("A1") & ":" & Sheet2.Range("A2")
Sheet1.ScrollArea = myrange
End Sub

when I change the values in A1 and A2 and run my code, the scroll area in
Sheet1 is changed.
I've never heard of having to restart before.



"jswalsh33" wrote in message
...
In response to a previous question of mine on Scroll increment, Dave
Peterson
referred me to Debra Dalgleish's site
http://contextures.com/xlfaqApp.html#Unused . I was able to get my scroll
increment to behave properly with the code:
LN = Sheets("Comp").Range("B11") + 10
Set rng1 = Cells(1, 1)
Set rng2 = Cells(LN, 19)
Set rng = Range(rng1, rng2)
Sheets("Lists").ScrollArea = rng.Address
A = LN & ":50000"
Sheets("Lists").Rows(A).Locked = False
Sheets("Lists").Range(Cells(LN, 1), Cells(50000, 1)).EntireRow.Delete

However, the result is not really dynamic, since one has to shut down and
restart Excel to have the new scroll range to take effect, which Debra's
site
acknowledges for "older versions of Excel."

I am using Excel 2003. Is there a way to defeat the need to restart Excel?

Regards All,

Jim