Hi

It's working fine here. I got 16 rows of data for SensorExhaustOxygenPFOS786.CSV.

To fix the file name

replace

Code:
wbkNewFile.SaveAs strOutPutFolder & varUniques(lngLoop) & strFileFormat, lngFileFormatNum
with

Code:
wbkNewFile.SaveAs strOutPutFolder & rngToCopy.Cells(2, 1)  & strFileFormat, lngFileFormatNum
Post back if any help needed.

HTH