>>5
これじゃダメなん??
Range("A1").Value & ThisWorkbook.Name