название файла и директории необходимо сформировывать из ячейки файла

[Евгений_39]

необходимо каждый раз сохранить файл в новую директорию с новым названием файла, названия формируются из ячейки файла?!
C:\01_ЭКСПЕРТИЗЫ\01_ОТГРУЗКА\ 283_07_09_2012, файл в нем "№ 1"
C:\01_ЭКСПЕРТИЗЫ\01_ОТГРУЗКА\ 284_08_09_2012, файл "№ 2"
и тд.

Вот сам макрос, но как прописать мою указанную выше хотелку??!!:

Sub Сохранение()
Dim Name As String, ИмяНаряда As String, myPath As String
ИмяНаряда = "с 07 09 по 07 09" 'Предлагаемое для сохранения имя файла
myPath = "C:\01_ЭКСПЕРТИЗЫ\01_ОТГРУЗКА\" 'Предлагаемый для сохранения путь
With Application.FileDialog(msoFileDialo gSaveAs)
.InitialFileName = myPath & ИмяНаряда
.Title = "Сохранение Данных в файл!"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
Name = .SelectedItems(1)
End With
End Sub

[kuklp]

Евгений_39, возьмите себе за привычку отписываться во ВСЕХ темах на ВСЕХ форумах, где Вы их создаете.