J
jswalsh33
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
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