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 ***