ファイル自動保存マクロ 件名「A1」+日付 作動

質問

エクセル　2007を使っています。
請求書管理で。ファイル自動保存マクロを作りましたが、問題があります。

「A1」セルを件名+日付でマクロにて、実行しますと、「A1」セルに「あいう」と手入力しますと問題なく作動します。
　　　　　　　　　ファイル名　C*・・・・・￥あいう2009-10-19

何が原因かわかりませんので、お尋ねします。
A2；A4にセルの結合で顧客名を入力規則で表示してありそのデーターを
「A1」に（+A2）と数式をいれて、動かしても、止まってしまいます。
・・・A1をコピー＆値貼り付けをしても動きません
　　　その後、手入力で作動しますと作動します。
何が原因でしょうか、　教えてください。
マクロ文を添付しております。
ボタン2は　（コピー＆値貼り付けです）
ボタン３が、問題のわからない部分です。
よろしくお願いいたします、

Private Sub CommandButton2_Click()
Range("A1:D58").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'
End Sub

Private Sub CommandButton3_Click()
Dim wk, wk2 As String
wk2 = Date
wk2 = Replace(wk2, "/", "-")
wk = "C:\Users\fukushima\Documents\○○○\△△△\" & Cells(1, 1) & wk2 & ".xls"
ActiveWorkbook.SaveAs fileName:=wk
Application.Quit

End Sub

回答No.1

rivoisu

コードに問題が無いように見えましたのでやってみました（Excel2003)
ボタンクリックにせず普通のSubで実行しましたが問題ないようです。

「Private Sub CommandButton3_Click()」ここにブレークポイントを設定してボタンクリックでここに制御がきているか、もしここにきていたらステップ実行（F8）でどこで止まるか(エラーになるかエラーならその内容）を見てみたらいかがですか。

"C:\Users\fukushima\Documents\○○○\△△△\”というフォルダーは確かにあるのでしょうね。

お礼

早々の回答をいただきまして、ありがとうございます。
どうにか動きました。
問題のファイルで
Sheet２で　a2からa15　までを入力規則のリストとしております。
リストのa2を指定しで、上記のファイルを動かした時に、作動しませんでしたが
a3～a15を指定しましたら、作動しました。
何故、入力規則リストでSheet２のa2を指定した場合動かないのか不明ですが、とりあえず、a3からa15を入力規則のリストをして、利用しますと
快適に処理されました。

「コードに問題が無いように・・・・問題ないようです」の、ご回答をいただいて、自信を持って使うことができます。
ありがとうございました。