Cole esse codigo em um modulo

Sub Criar()
Dim WSPlan      As Worksheet
Dim Arq         As String

On Error Resume Next

For Each WSPlan In Worksheets
Application.DisplayAlerts = False
'Atere nas duas linhas abaixo o nome das abas modelo e teste essas nao serao copiadas
If WSPlan.Name <> "Modelo" Then
If WSPlan.Name <> "Teste" Then
WSPlan.Copy
Arq = ActiveSheet.Name

'Salva o arquivo na pasta clientes altere conforme sua necessidade
ChDir "C:Clientes"
'Não esquecer de modificar aqui tambem
ActiveWorkbook.SaveAs Filename:= _
"C:Clientes" & Arq & ".xlsx"
ActiveWorkbook.Close
                
End If
End If
Application.DisplayAlerts = True
Next

End Sub