It worked here, but note that:
1. I had to use:
fs.Visible=True
so that I could see the workbook

2. strTargetSheet contained an empty string, so I had to add a line like:
strTargetSheet="MyNewName"

After which the column was correctly formatted.