Hi

I usually like to see that last few rows of data when i jump to the end of
the list, so code something like the following after your copy routine
should work

Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lr, 1).Activate
ActiveWindow.ScrollRow = lr - 6


--
Regards
Roger Govier

"knut" <nomail@please wrote in message
...
Excel 2007

I have a VBA-routine that imports data from an external source. There will
be hundreds of rows imported, and this takes several minutes to complete.
I would like to always have the last imported row visible. As it is now
the page does not scroll as the import takes place.
Does anyone understand what I am after, and does anyone have a solution? I
do not have the VBA-routien at hand right now so I can't share it with
you.

Thanx
Knut


__________ Information from ESET Smart Security, version of virus
signature database 4752 (20100107) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 4752 (20100107) __________

The message was checked by ESET Smart Security.

http://www.eset.com