Guardar cada hoja en un libro nuevo

Lo resolví así:


Sub MACRO1()

Dim ws As Worksheet
Dim ruta As String
Dim carpeta As FileDialog

Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub

salidas = carpeta.SelectedItems(1)

For Each ws In Application.ActiveWorkbook.Worksheets
     
Select Case ws.Name

Case Is =1,2,3,4,5,6,7,8,9,10
Sheets(ws.Name).Select
Sheets(ws.Name).Copy

ActiveWorkbook.SaveAs ruta & "\" & ws.Name, FileFormat:=51
ActiveWorkbook.Close

End Select


Next


End Sub