WORK SHEET
 

I want to em each worksheet seperately and be able to save each worksheet
seperately?

Thanks in advance :)

WORK SHEET
 

YOU could have recorded this macro while doing a manual copy to new book and
saving it.
Modify to suit.

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 7/30/2009 by Donald B. Guillett
'

'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="C:\yourfolderl\yourfilename.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ali" wrote in message
...
I want to em each worksheet seperately and be able to save each worksheet
seperately?

Thanks in advance :)

WORK SHEET
 

Thank you for your time. but can I em each worksheet seperately.

"Don Guillett" wrote:

YOU could have recorded this macro while doing a manual copy to new book and
saving it.
Modify to suit.

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 7/30/2009 by Donald B. Guillett
'

'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="C:\yourfolderl\yourfilename.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ali" wrote in message
...
I want to em each worksheet seperately and be able to save each worksheet
seperately?

Thanks in advance :)

WORK SHEET
 

I'm not sure what you mean by em? You can save the active sheet as a
separate workbook by something like this:

Sub SaveSheet()
Dim myFile as String
ActiveSheet.Copy
myFile=Application.GetSaveAsFilename
ActiveWorkbook.SaveAs myFile
End Sub

This will prompt you for the filename and location.
--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Ali" wrote:

I want to em each worksheet seperately and be able to save each worksheet
seperately?

Thanks in advance :)

WORK SHEET
 

Very helpfull Shane. Thanks.
What I am asking is that each person info is upon there titled worksheet I
would like to be able send an em to each of the 15 people, the same way that
you and I are communicating directly from the excell workbook. What I did
was copy and past than save each person info, then open an attachment in my
outlook and em/send to the person it is for, I had to do this for 15 people
so as you may imagine it took some doing, I just want to click on the
worksheet, and instead of copying, just send - to the person it is for, this
is an option in my word program and I thought excell would have the same
option.

Best regards
Ali

"Shane Devenshire" wrote:

I'm not sure what you mean by em? You can save the active sheet as a
separate workbook by something like this:

Sub SaveSheet()
Dim myFile as String
ActiveSheet.Copy
myFile=Application.GetSaveAsFilename
ActiveWorkbook.SaveAs myFile
End Sub

This will prompt you for the filename and location.
--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Ali" wrote:

I want to em each worksheet seperately and be able to save each worksheet
seperately?

Thanks in advance :)

WORK SHEET
 

Shane em = Email

"Ali" wrote:

Very helpfull Shane. Thanks.
What I am asking is that each person info is upon there titled worksheet I
would like to be able send an em to each of the 15 people, the same way that
you and I are communicating directly from the excell workbook. What I did
was copy and past than save each person info, then open an attachment in my
outlook and em/send to the person it is for, I had to do this for 15 people
so as you may imagine it took some doing, I just want to click on the
worksheet, and instead of copying, just send - to the person it is for, this
is an option in my word program and I thought excell would have the same
option.

Best regards
Ali

"Shane Devenshire" wrote:

I'm not sure what you mean by em? You can save the active sheet as a
separate workbook by something like this:

Sub SaveSheet()
Dim myFile as String
ActiveSheet.Copy
myFile=Application.GetSaveAsFilename
ActiveWorkbook.SaveAs myFile
End Sub

This will prompt you for the filename and location.
--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Ali" wrote:

I want to em each worksheet seperately and be able to save each worksheet
seperately?

Thanks in advance :)