Hi Logan

You can unprotect the sheet and protect the sheet in the same macro.
But It will only copy the format of the cells and not from the sheet

You can copy the whole sheet and delete the rows below page 1. ( is use row 20)
This will copy your sheet settings also to the new workbook

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
wb.Sheets(1).Unprotect
wb.Sheets(1).Rows("20:" & Rows.Count).Delete
wb.Sheets(1).Protect
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail ", _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub





--
Regards Ron de Bruin
http://www.rondebruin.nl


"Logan" wrote in message ...
Ron I used your Range macro, but the sheet I'm trying to
send is protected. I used it with the protection off but
the setup changed when received and opened.
Is there a way to email a protected sheet and hold the
formatting?




-----Original Message-----
Hi Logan

You can send a range or the selection
http://www.rondebruin.nl/sendmail.htm#selection

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Logan" wrote in
message ...
I am present using the following code to email an acitve
sheet. There are six pages in this sheet, I would like to
email just the first page.
Is it possible?


Sub Mail_ActiveSheet()
Dim strDate As String
Dim FName1, FName2, FName3, Fullname
FName1 = "CK0"
FName2 = Range("AU2").Value & "-"
FName3 = Range("J4").Value
Fullname = FName1 & FName2 & FName3
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time,
"h-mm-ss")
ActiveSheet.SaveAs "Sheet1 for " & Fullname _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "email address", _
Fullname
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.Fullname
ActiveWorkbook.Close False
End Sub



.