VBA to Split Workbook: No Longer Converting Formula Results to Values

Here goes nothing.

Private Sub CmdPrint_Click()
    Dim DateString As String
    Dim FolderName As String
    Dim x As Long
    Dim FileFormatNum As Long

    Application.ScreenUpdating = False
    DateString = Format(Now, "dd mmmm yyyy")
    FolderName = "C:\Users\Alison\OneDrive - Royal Hospital School\Documents\Timetable WIP\2019-20\Staffing Grids for HoDs" & " " & DateString
    For x = 0 To LstPrint.ListCount - 1
        If LstPrint.Selected(x) = True Then
            Application.CopyObjectsWithCells = False
            With Sheets(LstPrint.List(x))
                If .ProtectContents = True Then
                    .Unprotect
                    .Copy , Sheets(Sheets.Count)
                    .Protect
                Else
                    .Copy Sheets(Sheets.Count)
                End If
            End With
            Application.CopyObjectsWithCells = True
            With Sheets(Sheets.Count)
                .Range("H1").Value = LstPrint.List(x)
                .Range("B2:U4").Value = .Range("B2:U4")
                .Range("E94:U104").Value = .Range("E94:U104").Value
                .Copy
            End With
            With ActiveWorkbook
                .Sheets(1).Protect
                .Sheets(1).Name = LstPrint.List(x)
                If .HasVBProject Then
                    FileFormatNum = 52
                Else
                    FileFormatNum = 51
                End If
                .SaveAs FolderName & "\" & LstPrint.List(x), FileFormatNum
                .Close False
            End With
        End If
    Next
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Unload Me
End Sub

Nope.

Excel 2016 (Windows) 32 bit

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U
1	HoD Timetable Request - March 2019 Return to AGW by Friday 29 March 2019				Department:			Art
2	Year Groups & Teaching Groups
3
4
5			No. of periods per fortnight	Totals	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
6	KS3		40	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0

Sheet: Art

As asked before, if you copy a sheet within the workbook itself are the values in the copy displayed correctly then ?

No, they can't do because the formula in E3 can't work because the tab name has changed, so H1 is not showing the correct value. That's what I was saying in post #10.

What needs to happen is for JUST cell H1 to change from a formula to a value on the first copy, then for the named ranges to change to values on the second copy. Does this make sense?