Подскажите, пожалуйста, почему у меня в самом начале после запуска макроса сохранялся файл под новым именем, а сейчас нет, все изменения происходят в текущем(  
 
Public Sub Price()  
 
Application.DisplayAlerts = False  
Columns("P:Q").Delete  
On Error Resume Next  
Sheets("Pr").Delete  
Columns("A:C").Hidden = True  
 
Range("D7").Activate  
   
         
       ActiveSheet.Shapes("Blanc").Delete  
ActiveSheet.Shapes("Price").Delete  
 
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("CSV_EDI")  
 
Application.DisplayAlerts = True  
 
Columns("W:AP").Delete  
 
ActiveWorkbook.SaveAs Filename:="Pricelist_.xls", FileFormat:=xlNormal, CreateBackup:=False  
 
End Sub