I am using this macro.

Sub Hill()


Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True


End Sub


I would like the macro to send the sheet in the body of the email as plain
text.

Is this possible ?

Thank you in advance.

hi
see this site
http://www.rondebruin.nl/sendmail.htm

also see this code.
sheets("sheet1").activate
Range("A1").Select
Range("A1", Range("A1").End(xlToRight).End(xlDown)).Copy
Sheets("sheet2").Activate
Range("A1").PasteSpecial xlPasteValues

does the same as yours. a bit cleaner.

Regards
FSt1

"carl" wrote:


I am using this macro.

Sub Hill()


Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True


End Sub


I would like the macro to send the sheet in the body of the email as plain
text.

Is this possible ?

Thank you in advance.