you can try adding something like this to the end of your routine, just change
the column letter.

lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Application.Goto ActiveSheet.Range("A" & lastrow), scroll:=True

--


Gary Keramidas
Excel 2003


"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