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