You can get a text v ersion of a range with this.

Dim datObj As DataObject

ActiveSheet.UsedRange.Copy

Set datObj = New DataObject
datObj.GetFromClipboard

If datObj.GetFormat(1) = True Then
MsgBox datObj.GetText(1)
End If

NickHK

"pwrichcreek" wrote in message
...
I want to email the contents of a worksheet as if it had been printed,
rather
than as an .xls attachment. I don't see anything like this capability in
Ron
de Bruin's sendmail tool. Is there some other tool available? The email
client is Outlook Express.