Here is a small portion of vba I use to email 2 sheets.

Sheets(Array("Claim", "Sketch")).Copy

strDate = Format(Date, "dd-mmm-yyyy")
ActiveWorkbook.SaveAs "Claim " & Sheets("Claim").Range
("AH3").Value _
& " created on " & strDate & ".xls"

ActiveWorkbook.SendMail Sheets("Claim").Range
("d150:d154").Value, _
"Electronic Claim" & " " & Sheets("Claim").Range
("AH3").Value

Trouble is 1 cell can have more than 255 characters and I
loose that info. Is there a way I can copy that cell from
the origional book and paste it to the new one so I don't
loose the info that contains over 255 charaters.
Second consideration is users can give the origional
workbook a personalized name so I would have to use a
varialble to get the origional workbook name.

I am a newbie to VBA but trying to learn fast.

Thanks in advance.