Rename worksheet name "Sheet1" in VBA

How to rename the worksheet name "Sheet1" to "File1" in VBA?
My VBA coding as follows:
Sub Copyfile()
FileCopy ("C:\Data2006.xls"), C:\Book1.xls
End Sub