How to concatenate string cell contents,workbook.close()