Есть такой кусочек - экселевские файлы надо сохр в csv-формате с тем же именем что они имели

Sheets("ALL_2").Activate
z = ActiveWorkbook.Name
Columns("B:I").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("G15").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Max\TEST7Y\7yXLtest\" & z , _
FileFormat:=xlCSV, CreateBackup:=False

Ругается и не хочет сшивать постоянную часть с переменной
Как нужно переменную правильно определить?

FileFormat:=xlCSV - я уже определил формат,

там юмор в том что он не хватает имя открытой книги а сохраняет по дефолту - Book1.csv....book6.csv и т.д., а нужное имя не вставляет

все...въехал. Тихо сам с собою я веду беседу...кстати комментарий по поводу формата все-таки пригодился, спасибо