エクセルマクロ機能で、常に上書き保存を選択させたい

質問

いつもお世話になっております。
エクセルマクロ機能を利用し、特定のセル情報を新規bookにコピー貼り付けさせ、名前をつけて保存を実行するよう記録しました。
ここまでは問題ないのですが、毎回同じファイル名で実行するので、そのたびに「上書きしますか？」のメッセージが出て、そこでいったん手動で「はい」を選択しないとならなくなります。
ここで、マクロの記述内に何かを加えて、毎回、「はい」を自動で選択させ、保存までが１回のマクロで実行できるようにできますか？

参考までに↓以下、記述された内容をコピーします。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2007/9/19 ユーザー名 :
'

'
Columns("A:U").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\フォルダ１\ふぉるだ２\ファイル名.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

回答No.1

hana-hana3 · ベストアンサー

下記の方法で表示されなくなります。

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs　・・・・
Application.DisplayAlerts = True

お礼

回答ありがとうございました。
これは、EndSubの前に記述すればよいのでしょうか？
記述してみましたがうまくいきません。
どうすればよいでしょうか？お手数おかけします。m(＿ ＿)m

補足

補足ですみません。うまくいきました。
ActiveWorkbook.SaveAs　・・・・
の前後に記述すればよかったのですね。
ありがとうございました！