Macro to save

J

John

I have a little problem. I have created a form that is too large to send to
my department. The only portion of the form that i need is what really needs
to be emailed. Someone once suggested using SendMail, but i can not figure
that out.

1. Can you send a single worksheet within a workbook without using SendMail.

if not

2. I have figured out how to copy a worksheet into a new workbook, but how
do you include that as well as a save promt that will allow users to select
the name they want to save it as?

I hope this makes sense. Thank you for any help that you can be
 
P

Paul B

John, have a look at Ron's site here for ways to do it

http://www.rondebruin.nl/sendmail.htm#Tips
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
 
G

Gord Dibben

John

Ron de Bruin's SendMail add-in is very good utility and easy to use.

Just download the file and place it in your Office\Library folder.

Go to Tools>Add-ins and checkmark it.

A menu item will show under Tools.

If you are using Outlook from MS Office, no problems.

On the other hand, to copy the activesheet only to a new workbook use this
macro. Users have to type in a name in the inputbox.

Sub Make_New_Book()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

ActiveSheet.Copy
newname = InputBox("Enter a name for the new workbook")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & newname
ActiveWorkbook.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gord Dibben Excel MVP
 
Top