VBA save as function as new workbook

[大灰狼1976]

and this line:
fn = strPath & strVehNum & "-" & strGroup & "" & strFolderTestInfo & "\TP " & strVehNum & ".xlsm"