fileNumber = FreeFile
Open csvFilePath
For
Input
As
fileNumber
Do
While
Not
EOF(fileNumber)
Line Input #fileNumber, line
totalSum = totalSum + Val(Split(line,
","
)(0))
Loop
Close fileNumber
fileNumber = FreeFile
Open csvFilePath
For
Append
As
fileNumber
Print #fileNumber, totalSum &
" "
& ThisWorkbook.Name
Close fileNumber