If I wanted to transpose the text could I replace
this: (<<<change)
CriteriaRange:=.Range("IU1:IU2"), _

CopyToRange:=WBNew.Sheets(1).Range("A1"), _ <<<change
Unique:=False <<<<change


with this:
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone,SkipBlanks:=False ,

Transpose:=True

Or do I need to add it to it? This is using Ron's example of copying to
a new workbook.

Tom Ogilvy wrote:
If you send data to someone in a workbook, then you should assume they will
have access to all the data sent regardless of any protections you apply.

The only way to insure confidentiality is to not send them data you don't
want them to see.

You question would better be - how do I write a macro that generates 44
worksheets and sends them to the appropriate email addresses.

See Ron de Bruin's site for the pieces of information you need.

http://www.rondebruin.nl/copy5.htm

http://www.rondebruin.nl/sendmail.htm

--
Regards,
Tom Ogilvy



"Ciara" wrote:

I am pretty new at this so I will explain what I am trying to achieve
as best as possible.
I need to send info to practices on a weekly basis with patient
information. There are 22 practices and each will receive 2 reports. I
really do not want to create 44 speadsheets every week. What I had in
mind to do was to assign a password to each record based on the
practice. Then creating a user form?? where they select their practice
and enter the password which would then show only their data. Is this
the most sensible way to do this? Is it possible? How can I do the
latter part? Many thanks -C