Para criar uma nova função, que divide suas planilhas (em novos arquivos) no Excel, pressione em seu teclado ALT + F11.
Surgirá uma nova janela (editor Visual Basic). No menu acesse INSERIR/MÓDULO, e cole o texto abaixo:
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Após isso volte para a janela do Excel.
Execute a macro SplitEachWorksheet() e mande executar.
Sua planilha será dividida em vários arquivos, na mesma pasta onde o principal está salvo.