Sub Макрос1()
Dim myPath As String, cellName As String, fName As String

myPath = "C:\Documents and Settings\sad\Рабочий стол\"
cellName = ActiveSheet.Range("A1").Value

On Error Resume Next
  fName = InputBox("Файл будет сохранён в дирректорию " & Chr( 10 ) & _
                       myPath & Chr( 10 ) & "в формате xls" & _
                       "введите имя файла", _
                       "Сохранение файла", cellName)
  ActiveWorkbook.SaveAs fileName:=myPath & fName & ".xls"
On Error GoTo  0 

End Sub

Sub Макрос2()
Dim myPath As String, cellName As String, fName As String

myPath = "C:\Documents and Settings\sad\Рабочий стол\"
cellName = ActiveSheet.Range("A1").Value

On Error Resume Next
  fName = InputBox("Введите полное имя файла", _
                       "Сохранение файла", _
                       myPath & cellName & ".xls")
  ActiveWorkbook.SaveAs fileName:=fName
On Error GoTo  0 

End Sub