Consolidating Code

[Guest]

How can I consolidate the following code so that it improves execution time?
I recorded "scrolling" in my macro, and I'd like to consolidate every
discreet line/column scroll command.

ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1

....so that it resembles something like this:
"ActiveWindow.ScrollColumn = 4:1"
"ActiveWindow.ScrollRow = 5:1"

Thanks you.

 

[Guest]

only the last command in each set counts

scrollcolumn automatically puts what ever column number you put as the
leftmost column, it is not a series of scrolls added together
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1

accomplishes the same exact thing as

activewindow.scrollcolumn = 1

 

[Chip]

Seeing as how all that code does it put you back at your original view,
why do you need the code at all?

 

[Guest]

Thanks - and good question: The page is a switchboard, and I want to keep it
"clean" and have the page reset with a selected cell out of view every time
it's unhidden.

 

[Guest]

Thanks--I greatly appreciate your help.
Regards.
EU

 

[Chip]

I am not sure I understand your comment, so do you want the view to
reset on the selected cell? If so, use this:

Range("J1").Select
ActiveWindow.ScrollColumn = ActiveCell.Column
ActiveWindow.ScrollRow = ActiveCell.Row
With J1 being the Cell you want selected/viewed