rename worksheets after copy

I want to rename "Emp1" to "NewData". Here is my code.

Private Sub Send1_Click()
Dim strDate As String
Sheets(Array("Emp1", "Main")).Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "NewEmployeeData.xls"
ActiveWorkbook.SendMail "", _
"Employee Attendance Data"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

Private Sub Send1_Click()
Dim strDate As String, sName as STring
Sheets(Array("Emp1", "Main")).Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
Worksheets("Emp1").Name = "NewData"
ActiveWorkbook.SaveAs "NewEmployeeData.xls"
ActiveWorkbook.SendMail "", _
"Employee Attendance Data"
sname = ActiveWorkbook.Fullname
ActiveWorkbook.Close False
Kill sName
End Sub

--
Regards,
Tom Ogilvy


"Qaspec" <Qaspec@discussions.microsoft.com> wrote in message
news:664CCF3B-9C62-4AC0-BD5C-0A2FB06CBA25@microsoft.com...
> I want to rename "Emp1" to "NewData". Here is my code.
>
> Private Sub Send1_Click()
> Dim strDate As String
> Sheets(Array("Emp1", "Main")).Copy
> strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
> ActiveWorkbook.SaveAs "NewEmployeeData.xls"
> ActiveWorkbook.SendMail "", _
> "Employee Attendance Data"
> ActiveWorkbook.ChangeFileAccess xlReadOnly
> Kill ActiveWorkbook.FullName
> ActiveWorkbook.Close False
> End Sub
>

Hi Qaspec

Use this

Sheets(Array("Emp1", "Main")).Copy
Sheets("Emp1").Name = "NewData"


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



"Qaspec" <Qaspec@discussions.microsoft.com> wrote in message news:664CCF3B-9C62-4AC0-BD5C-0A2FB06CBA25@microsoft.com...
>I want to rename "Emp1" to "NewData". Here is my code.
>
> Private Sub Send1_Click()
> Dim strDate As String
> Sheets(Array("Emp1", "Main")).Copy
> strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
> ActiveWorkbook.SaveAs "NewEmployeeData.xls"
> ActiveWorkbook.SendMail "", _
> "Employee Attendance Data"
> ActiveWorkbook.ChangeFileAccess xlReadOnly
> Kill ActiveWorkbook.FullName
> ActiveWorkbook.Close False
> End Sub
>