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

would be

.worksheets(1).Range(rng.Address).PasteSpecial xlValues
.worksheets(1).Range(rng.Address).PasteSpecial xlFormats

I haven't looked at Bernie's code, so if using that, perhaps something
similar.

--
Regards,
Tom Ogilvy



"SIGE" wrote in message
...

Tom, Bernie,

Don't know which status is coming after MVP ... they should invent it!!!
Works great!
Thanks, thanks, thanks a million!

Sige

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

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