Hi Snoopy
Somewhere at the top of the routine insert
shtName = activeworkbook.name
and at the end put
sheets(shtname).select
Regards
Peter
> Hi fellows
> My workbook is design to collect data from local files an put them
[quoted text clipped - 14 lines]
> Loving regards
> Snoopy
Snoopy - 29 Jun 2007 15:03 GMT
On 29 Jun, 15:54, Billy Liddel <BillyLid...@discussions.microsoft.com>
wrote:
> Hi Snoopy
>
[quoted text clipped - 29 lines]
>
> - Vis sitert tekst -
Thanks Peter, but the macro crashes on the "sheets(shtname).select" in
the end. What can be wrong?
Dim myOrigRng as range
set myorigrng = selection
'do lots of things
application.goto myorigrng
May work for you.
> Hi fellows
> My workbook is design to collect data from local files an put them
[quoted text clipped - 14 lines]
> Loving regards
> Snoopy

Signature
Dave Peterson
Snoopy - 02 Jul 2007 07:01 GMT
> Dim myOrigRng as range
>
[quoted text clipped - 30 lines]
>
> - Vis sitert tekst -
Dave
Fabulous!
You made the sun shine on a very rainy day
Regards
Snoopy