他のブックに現在のデータを日付をつけて保存したい

質問

WinXP Excel2003でマクロを作っている超初心者です。90％完成しましたが、次のことで止まっています。

1）Aブックのユーザーホームに、ＢコマンドボタンとＣコマンドボタンがあります。
　　　Aブック→Ｂコマンドボタン→Ｂブック開く→入力→Ａブックのコマンドボタンで保存
　　　　　　　→Ｃコマンドボタン→Ｃブック開く→入力→Ａブックのコマンドボタンで保存

2）Ａブックのコマンドボタンからではなく、エクセルを起動し、Ｂブックを開き、「今日の日付をつけて新規ブックに保存」のマクロを作りました。

コードは次のとおりでした。
Sub ブック名に現在の日付を付加して保存GH()
'Windows環境なのでEnviron関数を使ってみる
Dim strFileName As String
Dim strSavePath As String
Dim intRe As Integer
Application.DisplayAlerts = False
ActiveWorkbook.Save
strSavePath = Environ("HOMEPATH")
strSavePath = strSavePath & "\デスクトップ\総務\請求\データ保存用"
If Dir(strSavePath, vbDirectory) = "" Then
MkDir (strSavePath)
End If
strFileName = strSavePath & "\ＧＨ請求" & Format(Date, "yyyymmdd") & ".xls"
If Dir(strFileName) <> "" Then
MsgBox "このＧＨ請求書を保存し、同時に「データ保存用」の中にも保存しました。。"
Else
ThisWorkbook.SaveAs Filename:=strFileName
End If
If intRe = vbNo Then Exit Sub
If intRe = vbYes Then
ActiveWorkbook.SaveAs Filename:=strFileName
End If
Application.DisplayAlerts = True
Application.Quit
End Sub
　無事に今日の日付でＢブックが保存できました。

3）今度は、Ａブックから、→Ｂコマンドボタン→Ｂブック開く→Ａブックのコマンドボタンで「今日の日付をつけて新規ブックに保存」のマクロを実行しました。すると、保存先にはＡブックが保存されていました。ＡブックでなくＢブックのデータを保存したいのに・・・。

4）なぜ、Ｂブックが保存されないのでしょうか？　Ｂブックを保存するにはどうしたらよろしいでしょうか。

回答No.1

nda23

ActiveWorkbook を使っているからでしょう。（２箇所くらいある）
これは現在アクティブなブックという意味なので、AなのかBなのか、
はたまたCなのかは「その時の状況による」という不安定なプログラムに
なっています。Workbooks(1)とか、Workbooks("A.xls")のようにブックを
固定して実行してみてください。

お礼

あありがとうございました。今の実力ではできませんでした。もう少し勉強しなおします。