I tried your code (using Excel 2002 on Windows 2000), and it worked
for me. I changed worksheet  names to include spaces and dashes, and
it worked also.

By the way, the code does not return the name of chart sheets.