Sub ReSave()
Dim wb As Workbook, sh As Worksheet, wp$, aa
Set wb = ActiveWorkbook: wp = wb.Sheets(1).[a1]
For Each sh In wb.Worksheets
  aa = sh.UsedRange.Value: sh.UsedRange.Value = aa
Next
wb.SaveAs wp, wb.FileFormat
End Sub

Sub SplitSheets()
Dim wb As Workbook, sh As Worksheet, wp$, nWB As Workbook, n%
Set wb = ActiveWorkbook
For Each sh In wb.Worksheets
  If InStr(sh.[a1], "\") Then
    wp = sh.[a1] & sh.Index
  Else: wp = wb.Path & "\" & Date & "_" & sh.Index
  End If
  Set nWB = Workbooks.Add
  If nWB.Worksheets.Count > 1 Then'если по действующему шаблону в новых книгах листов больше 1
    Application.DisplayAlerts = False
    For n = 2 To nWB.Worksheets.Count
      nWB.Worksheets(2).Delete
    Next
    Application.DisplayAlerts = True
  End If
  With nWB.Sheets(1)
    sh.Cells.Copy .[a1]: .Name = sh.Name: .UsedRange.Value = sh.UsedRange.Value
  End With
  nWB.SaveAs wp & ".xls", wb.FileFormat: nWB.Close False
Next
End Sub

Sub ReSave()
Dim wb As Workbook, sh As Worksheet, wp$, nwb As Workbook, a%, b%, aa As Sheets
Set wb = ActiveWorkbook: wp = wb.Sheets(1).[A1]
Set aa = wb.Windows(1).SelectedSheets
Set nwb = Workbooks.Add: a = aa.Count
aa.Copy before:=nwb.Worksheets(1)
Application.DisplayAlerts = False
For b = 1 To a
  nwb.Sheets(b).UsedRange.Value = nwb.Sheets(b).UsedRange.Value
Next
For b = a + 1 To nwb.Sheets.Count
  nwb.Sheets(a + 1).Delete
Next
Application.DisplayAlerts = True
nwb.SaveAs wp, wb.FileFormat: nwb.Close False
End Sub