Ok, amended as per your instructions, but the problem remains.
Dim formattedCurrentDate As String
formattedCurrentDate = Format(Date, "dd-mm-yyyy")
Dim FName As String
Dim FPath As String
Dim Newbook As Workbook
Dim filename As String
Dim WB As Workbook
ActiveSheet.Unprotect
Sheets("SUMMARY").Select
ActiveSheet.Unprotect
Sheets("TOTAL WEEK").Select
ActiveSheet.Unprotect
Sheets(Array("SUMMARY", "TOTAL WEEK")).Select
Sheets(Array("SUMMARY", "TOTAL WEEK")).Copy
Sheets("SUMMARY").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("TOTAL WEEK").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
FPath = "Q:\Finance\Accounts\Finance\CASH, BANK and LOANS\Client Account Reconciliations\Solutions Client accounts\
TOCS\Client Reports\WMT\Client Reports\"
FName = Range("O6")
'FName = "WMT Client Report " & Sheets("INPUT").Range("Q1").xlsx
'"West Midlands Trains Revenue Report: " & Sheets("Input").Range("Q1")
'FName = "WMT Client Report " & Format(Date, " ddmmyy") & ".xlsx"
Set WB = ActiveWorkbook
WB.SaveAs filename:=FPath & FName, FileFormat:=1
WB.Close
Range("Timestamp2").Value = Format(Now, "mm/dd/yyyy HH:mm:ss")