Цель:
1) открытие существующего файла
2) сохранение его под заданым именем в заданную директорию

Проблема заключается в формировании файла с именем взятым из активной ячейки, т.е. проблема не могу присовить переменной имя из ячейки.

Текст следующего характера:

Sub project()

Workbooks.Open ("e:\pattern.xls")
Path = "e:\"
Name = ' ЧТО НУЖНО ТУТ НАПИСАТЬ ЧТОБЫ ДОБИТЬСЯ ЖЕЛАЕМОГО РЕЗУЛЬТАТ
ext = ".xls"


Filename = Path + Name + ext


ActiveWorkbook.SaveCopyAs Filename:=Filename
ActiveWorkbook.PrintOut
ActiveWorkbook.Close


End Sub

' ПОМОГИТЕ ПОЖАЛУЙСТА
'