My fault on that code:

Worksheets(1).Paste Worksheets(1).Range(rng.Address)

If Left(Ucase(nme.Name, 3)) = "VBA" Then

should be

If Left(Ucase(nme.Name), 3) = "VBA" Then

My typo

--
Regards,
Tom Ogilvy



"SIGE" wrote in message
...
Hi Tom,

Took your code and pasted it in a normal module.

1. Run into: Compile error:
Wrong number of arguments or invalid property assignment on:
UCase
2. When removing the Ucase-part:
If Left(nme.Name, 3) = "VBA" Then

I run into Run-time error"438"
Object does not support this property or method on :

Worksheets(1).Range(rng.Address).Paste


I do not do it on purpose ...! :o)
Sige


"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***