回答ありがとうございました。
FName = Dir()に修正しオプションの「変数の宣言を強制する(R)」にチェックを入れましたが
結果的にマクロを実行すると最後まで終了するのですが集計データは1ファイル分のみの結果
しか出力されませんでした。
原因を確認したくステップイン(F8)で行うと
『 Workbooks(台帳FName).Close savechanges:=False』の行で以下の画面が出て止まってし
まいました。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub
やはりマクロの記述が間違っているのでしょうか?
何度もすみませんがよろしくお願いします。
お礼
ご指摘内容を修正したら動くようになりました。 ただ『Dir(PName & "*親プロジェクト*.xls*") にして拡張子を付けないと認識しない』件ですが拡張子なしでも 動いてしまいました。何か問題があるかもしれませんが・・ あと『台帳シートが存在しない場合の処理がない』は考慮に入っていませんでした。 ご回答通りの記述は簡潔で完璧でした。 助かりました。 本当にありがとうござました。