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.