Multiple sheets in single workbook into new files only using cell format/values

The name of the new file can be found in one of two places: the name of the tab and/or cell B4.

How does one determine which? Give this a whirl, it uses the sheet name:

Sub x()

Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets
    ws.Copy
    With ActiveWorkbook
        .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
        .SaveAs ws.Name
        .Close
    End With
Next ws

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub