Option Explicit
Sub Test()
Application.ScreenUpdating = 0
Sheets("Clients").Copy
Application.DisplayAlerts = 0
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Clients.xlsx"
ActiveWindow.Close
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
End With
End Sub