Not sure.
Sub PERIODEND()
Dim sName As Variant, bFolder As String, dest As String, sh As Worksheet
sName = InputBox("Subfolder name")
If sName = "" Then Exit Sub
bFolder = "T:\Passenger Accounts\SHARED\passacc\Excel\passacc\backup"
If Dir(bFolder & "\" & sName, vbDirectory) = "" Then
MkDir bFolder & "\" & sName
End If
dest = bFolder & "\" & sName & "\"
ActiveWorkbook.SaveCopyAs dest & "NEW SUMMARY1.xls"
Workbooks.Open dest & "NEW SUMMARY1.xls"
For Each sh In ActiveWorkbook.Sheets
sh.UsedRange = sh.UsedRange.Value
Next
ActiveWorkbook.Close True