Maybe this:
Option Explicit
Sub Splitbook()
Dim xPath As String, xWS As Worksheet
xPath = "C:\test\" 'remember the final \ in this string
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWS In ThisWorkbook.Sheets
If xWS.Name <> "RawData" Then
xWS.Copy
ThisWorkbook.Sheets("RawData").Copy Before:=(ActiveWorkbook.Sheets(1))
ActiveWorkbook.SaveAs Filename:=xPath & xWS.Name & ".xls"
ActiveWorkbook.Close False
End If
Next xWS
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Bookmarks