Split pairs of worksheets to separate workbooks

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