Macro,Multiple Workbook

[Nitha120]

Hi guys,
I am trying to import multiple workbook to one workbook and save it. How do I do that?
I wrote the codes it work until it get to this line.

newSheet.Name = Left$(tempname, Len(tempname))

the error said that either my files is more then 31 character long or I am using the /,\,[], in naming the files.

My files name is longer then 31 but are there anyway to set unlimited character?

any suggestion is welcome!

 

[PHV]

Brute force method (Excel2k or above):
newSheet.Name = Left$(Replace(Replace(Replace(Replace(tempname, "/", "_"), "\", "_"), "[", "_"), "]", "_"), 31)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244