Помогите написать макрос для внесения (добавления) данных из ячейки в имя файла при выполнении SaveAs

А можешь на примере, плизззззззз

Я только учусь, начинаю только постигать, вот и просил помощи...

ДмиДмиЗдесь помогают не тем, кто пришёл за халявным готовым решением, а тем, кто делает что-то сам.

В помощи не откажут, но помогать-то пока не в чем. Где они, твои наработки?
Выкладывай то, что написал, рассказывай, что работает не так, как ожидалось. Глядишь, сообща и разберёмся.

Вот получается пока так:

Dim nm As String
Dim num
num = ActiveWorkbook.ActiveSheet.Range("E3")
nm = "C:\Documents and Settings\Prinect2\Desktop\Zakazy\№" & num & ".xlsm"
ChDir "C:\Documents and Settings\Prinect2\Desktop\Zakazy"
Application.ActiveWorkbook.SaveAs Filename:=nm

End Sub

Но как то кривовато мне кажется, а?

GrayscaleЯ начинал изучать с помощью сервис-макрос-записать... потом изучал рез-тат... с твоей задачей разберешся за 2 минуты...

Да я то этим занимался еще раньше (сервис-макрос-записать), задач таких никогда не было...
все нужно было простенько, т.е. внутри апликации, а тут вот такая задачка и "насегодня"...
вот как-то сделал, работает, но хотелось бы правильно, красиво.

AntonariyКрасивее не будет. Имя книги = имя файла => изменяется только при перезаписи.
nm = "C:\Documents and Settings… можно заменить на ThisWorkbook.Path.

Тоже дельно, на знал, СПАСИБО!