вставка из ячейки листа в название файла (A1_B1.xsl)

[ramzan_s]

Доброго времени суток! используя шаблон, как сделать так чтобы из содержимого ячейки автоматом создавался файл с тем же названием, и сохранился в текущую папку где находится шаблон.

например

Бланк.xltx (или Бланк.xltm)

A1 - Отчет за
B1 - 01.09.2010

Отчет_за_01.09.2010.xls

Заранее большое СПАСИБО ))))

[Aiden]

Dim path As String
path = ThisWorkbook.path
ActiveWorkbook.SaveAs Filename:=path & "\" & Cells(1, 1) & " " & Cells(1, 2) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

[ramzan_s]

Сообщение от Aiden

Dim path As String
path = ThisWorkbook.path
ActiveWorkbook.SaveAs Filename:=path & "\" & Cells(1, 1) & " " & Cells(1, 2) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

То что надо спасибо )))