Можно его дополнить, о предупреждении что заказ с таким номером уже есть
Можно
[vba]Код
Sub Макрос1()
For Each Sh_ In ActiveWorkbook.Sheets
If Sh_.Name = "материалы" Then
Application.DisplayAlerts = 0
p_ = "D:\Стереть\"
Sh_.Select
A:
Shn_ = InputBox("Введи номер", "Как сохранять будем?", "заказ_№_")
On Error Resume Next
gg_ = Dir(p_ & Shn_ & ".txt", vbNormal)
If gg_ <> "" Then MsgBox "Такой файл уже есть": GoTo A
ActiveWorkbook.SaveAs Filename:=p_ & Shn_ & ".txt", FileFormat:=xlText
If Err.Number <> 0 Then MsgBox "Нет пути " & p_
On Error GoTo 0
ActiveSheet.Name = "материалы"
Application.DisplayAlerts = 1
End If
Next
End Sub
[/vba]