Sub Макрос1()
Dim iFileName$, iPath$
    'имя записано в на Лист1 в ячейке А1
    iFileName = Sheets("Лист1").Cells(1, 1) 'берём имя из ячейки A1
    'или iFileName = Sheets("Лист1").Range("A1")
    iPath = "C:\" 'указываем путь
    ActiveWorkbook.SaveAs Filename:=iPath & iFileName & ".xls" 'сохраняем его
    MsgBox "Книга сохранена!"
End Sub