【VBA】アクティブなシートの内容をメッセージ非表示でテキストファイルで保存する

Sub rireki_export()

Application.DisplayAlerts = False

Sheets("特定履歴").Copy

ActiveWorkbook.SaveAs Filename:="C:\Users\ya570\Desktop\export.txt", _
                      FileFormat:=xlText, Local:=True
                      
                      
ActiveWorkbook.SaveAs Filename:="C:\Users\ya570\Desktop\export_1.txt", _
                      FileFormat:=xlText, Local:=True
                                            
                                            
ActiveWorkbook.SaveAs Filename:="C:\Users\ya570\Desktop\export_2.txt", _
                      FileFormat:=xlText, Local:=True
                                            
                      
  ActiveWorkbook.Close
  
  Application.DisplayAlerts = True


End Sub