マクロで新規ブックを作成するタイミングで、
ファイル名を事前に決めることはできないのでしょうか？

やりたいこと：
１、マクロで新規ブックを作成し、そこにデータを流し込む
２、ユーザー操作でファイルを「名前を付けて保存」を行う
３、「名前を付けて保存」ダイアログのファイル名の初期値として
　　マクロから表示したいファイル名を設定しておく
（印刷時のページヘッダーにもブック名をできれば表示したい）

> マクロで新規ブックを作成するタイミングで、
> ファイル名を事前に決めることはできないのでしょうか？
やりたい事とは微妙に違うかもしれませんが、新規ブックを
　Set WB = .Workbooks.Add("C:\サンプル.XLT")
のようにして、テンプレートから作成してみては如何でしょう。
この場合、保存時の初期ファイル名が「サンプル1.xls」になります。

> やりたい事とは微妙に違うかもしれませんが、新規ブックを
> 　Set WB = .Workbooks.Add("C:\サンプル.XLT")
> のようにして、テンプレートから作成してみては如何でしょう。
> この場合、保存時の初期ファイル名が「サンプル1.xls」になります。

この方法で初期ファイル名は設定できましたが、条件によって、
毎回ファイル名が変わりますので、あらかじめテンプレートを用意できません。
毎回リネームorコピーしてから開くのも考えましたが、
そうするとテンプレートファイルが大量に作られてしまいます。
終了時に削除してしまうとしても、強制終了などで
ゴミテンプレートが溜まってしまう恐れがあります。
（そもそもXLTから開いた状態で、そのXLTファイルを削除できる？？）

wb.name = "XXXX_yyyymmdd.xls"
みたいに設定できればいいのになぁ・・・

> （そもそもXLTから開いた状態で、そのXLTファイルを削除できる？？）
XLTX でも XLT でも XLSX でも XLS でも構いませんが、すぐに削除できますよ。

元のファイルを直接開いているわけではなく、それを雛型とした「別ファイル」として
開いていますから、終了時まで待たずとも、Workbooks.Add した直後に破棄できます。

> 終了時まで待たずとも、Workbooks.Add した直後に破棄できます。

以下の方法で新規ワークブックを作成することにしてみました。

Dim strFile1 As String
Dim strFile2 As String
strFile1 = ThisWorkbook.Path & "\" & "Test.xlt"
strFile2 = ThisWorkbook.Path & "\" & Format(Now, "yyyyMMdd") & ".xlt"
FileCopy strFile1, strFile2
Dim wb As Workbook
Set wb = Workbooks.Add(strFile2)
Kill strFile2

思い通りの動きができました！！

本当にありがとうございました。