Ok, used your macro and moved the other two files into the right places.

When I run it, this pops up in yellow;

CN.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12 .0;" & _
"Data Source=" & strWorkbook & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

I think there is something I need to enable for this to work?