Sub Macro1()
Dim nm As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nm = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nm & ".xlsx", xlOpenXMLWorkbook
ActiveWorkbook.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub