What if you replace this:
FileFormat:=xlExcel8
With this:
FileFormatNum = -4143
I know from another piece of code I wrote that I had better success with a similar operation using FileFormatNum. For the earlier version of excel (Val(Application.Version) < 12), that is the .xls format number.