Excel - Crear ficheros desde excel

Tengo un libro Excel con una hoja por cada comercial, donde les informo de sus comisiones. Cada hoja lleva el nombre de cada uno de ellos.
Las hojas las creo a partir de una tabla dinámica.
¿Como podría crear un fichero nuevo por cada hoja?

Crea una macro:

Sub Crear_archivos_de_hojas()

Dim strHoja, strStartHoja, strRuta As String
Dim i As Integer

Application.ScreenUpdating = False
strStartHoja = ActiveCell.Worksheet.Name

'bucle todas hojas
For i = 1 To Sheets.Count

'copia la hoja a libro nuevo
Sheets(i).Activate
strHoja = ActiveCell.Worksheet.Name
Sheets(strHoja).Copy

'IMPORTANTE:
'donde guardar los archivos creados
strRuta = "C:excelvbaejemplos"

'guarda el libro nuevo
ActiveWorkbook.SaveAs Filename:=strRuta & "" & strHoja, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close Savechanges:=True

'repetir bucle'
Next

Sheets(strStartHoja).Activate
Application.ScreenUpdating = True

End Sub

Esta probado y funciona.