エクセルVBAでファイルを保存して日付名をつけるには

最近の書き込み件数：今日 0件、昨日 0件
未読分：1件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2015年2月7日(土)14時39分
From: みらっぽ

返事削除変更

エクセルVBAでファイル名をつけて保存で保存するのですが、毎度同じ名前で上書き保存しますか？とメッセージがでます。こちらをださないようにしたいのですが、どのようにすればよろしいでしょうか？
以下のサンプルコードになりますので、ご教授おねがいします。

Sub Sample()

filePath = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "\"
myname = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=filePath & Format(Now(), "yyyy年mm月dd日") & cells(i,2).Value & ".xls"
ActiveWindow.Close
End Sub