Sorry, it should be

Code:
wbkNewFile.SaveAs strOutPutFolder & wbkNewFile.Worksheets(1).Range("a2") & strFileFormat, lngFileFormatNum