..Attachments.Add ThisWorkbook.FullName

should do it.

--
Jim Rech
Excel MVP
"Dave D." wrote in message
om...
|I want to have the user click the button and send the current workbook
| as an attachement to certian users. I can get to bring up Outlook and
| have it populate my certain email addresses by using:
|
| ...
| Set oMailItem = oOutlook.CreateItem(0)
| With oMailItem
| Set oRecipient =
| ")
| oRecipient.Type = 1
| .Subject = "Agent Form Data for " & emailDate
| .Body = "This Agent was submitted on: " & emailDate
| .Attachments.Add sAttachment
| .Display
| ...
|
| but when using this I've been trying to use
| .attachments.add "some local drive file" but can't use activeworkbook
| or anything. Any thoughts?
|
| Thanks in Advance
|
| Dave