How can I insure that at the end of a macro the last row of data in the worksheet is visible at or near the bottom of the screen? The number of rows in the worksheet varies. If, for instance, there are 150 rows in a particular report, the selcted cell will be A150, but the screen shows rows 1-41, so A150 is not in view. I would like for A150 to be visible at or near the bottom of the screen when the macro finishes.

Thanks!

Tonso

Hi Thomas,

Am Wed, 22 Aug 2012 05:03:35 -0700 (PDT) schrieb Tonso:

How can I insure that at the end of a macro the last row of data in the worksheet is visible at or near the bottom of the screen? The number of rows in the worksheet varies. If, for instance, there are 150 rows in a particular report, the selcted cell will be A150, but the screen shows rows 1-41, so A150 is not in view. I would like for A150 to be visible at or near the bottom of the screen when the macro finishes.

for me, the selected cell will be shown in the middle of the screen.
If you want it at the bottom, try:

LRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(LRow, 1).Select
ActiveWindow.ScrollRow = LRow - 40


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

On Wednesday, August 22, 2012 8:03:35 AM UTC-4, Tonso wrote:
How can I insure that at the end of a macro the last row of data in the worksheet is visible at or near the bottom of the screen? The number of rows in the worksheet varies. If, for instance, there are 150 rows in a particular report, the selcted cell will be A150, but the screen shows rows 1-41, so A150 is not in view. I would like for A150 to be visible at or near the bottom of the screen when the macro finishes. Thanks! Tonso

Claus,

Thank you so much! Works great!
Sincerely,

Tonso