Sub Macro1()
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.Name = Range("A1")
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\" & ActiveSheet.Name & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub